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UTILITAIRE 



Traceur de fonctions 



Emmanuel HERROU 



Ce traceur de fonctions n'est pas un traceur de fonctions classique, puisque outre le tracé des fonctions en 

continu, il permet de tracer des tangentes, de résoudre des équations et aussi de calculer 

l'aire entre la fonction et l'axe des abscisses. 



Le programme 

Il y a deux programmes, le premier est un programme BA- 
SIC de 19 Ko et le second est un programme binaire de 2 

Ko. Ce dernier contient cinq nouvelles instructions BASIC. 

WINDOW,adr,x,y,lon,h ^_____ — n 

COMPIL,adr, x,y,lon,h P^r JS* I 

DECOMPIL I adr,x ) y,lon,h * rpC 66* 

VAL,@a$ 1 g çpC 6128J 

LIGNE,@aS,l L-— 

WINDOW : permet d'ouvrir une fenêtre de dimension lon- 

2,h-2 à partir de la position x,y. 

I DECOMPIL : permet de fermer la fenêtre précédemment 

définie. 

| COMPIL : permet de compiler une zone écran de longueur 

Ion, de largeur h à partir de la position x,y. Cette zone peut 

être décompilée par DECOMPIL. 

N.B. Le compilateur-décompilatcur fonctionne en mode 2, donc 

pour le faire fonctionner en mode 1 , il faut multiplier x,y,lon,h 

par 2. 
| VAL : permet de mettre dans une variable la valeur d'une 

variable alphanumérique. Ex : a = "a=10*log(3)":print a 

Le résultat est 10.86... 



• MENU 1 : DEFINIR 

- Valider : à chaque fois qu'une fonction a été définie, il faut 
la valider pour que les opérations ultérieures portent sur elle. 
Les fonctions vectorielles portent les numéros 11 et 12, la 
fonction définie par intervalle est signalée par un astérisque. 
Si vous avez validé ce menu par erreur, il suffit de taper En- 
ter pour revenir au menu principal. 

- Définir : ce menu vous permet de définir une fonction d'une 
variable réelle. A la question f(x)=, il suffit de taper la fonc- 
tion que Ton veut définir. Ex : on veut définir la fonction 
f(x)=x A 3+3*x A 2, à la question f(x)=, il suffit de répondre 
x A 3+3*x A 2. 

- Intervalle : ce menu permet de définir une fonction définie 
par intervalle. Par exemple : J f(n) = n 3 si n < 

1 f(n) = nVn si n > 
Pour entrer cette fonction, à la question nombre d'inter- 
valles, il suffit de répondre 2. Aux questions «début inter- 
valle:» et «fin intervalle:», il suffit de répondre -le38 et 0. 
Pour entrer plus ou moins l'infini, il suffit de taper + ou - 
le38. Si vous êtes entrer dans ce menu par erreur, il Suffit de 
taper Enter à la première question. 

- Vectorielle : permet de définir une fonction vectorielle, ou 
une fonction paramétrique. Si vous voulez définir un cercle 



I LIGNE : permet de rajouter une ligne BASIC, pendant que 
le programme tourne. 

II n'y a pas grand-chose à dire sur le programme BASIC, si- 
non qu'il utilise beaucoup de sous-programmes, et que ceux- 
ci sont implantés à partir de la ligne 10000. Le programme 
contient un traitement des erreurs, par conséquent il n'est pas 
nécessaire de connaître l'ensemble des définitions, pour faire 
tourner le programme. 

Fonctionnement du programme et mode d'emploi 

A la mise en route du programme, cinq menus apparais- 
sent en haut de l'écran, ces menus sont les cinq menus prin- 
cipaux du programme, on peut accéder à chacun d'entre eux, 
en déplaçant le pavé noir et en appuyant sur Enter quand on a 
atteint le menu désiré. Ce système de menus est très pratique, 
puisqu'on a accès à toutes les commandes directement. 



dont l'équation paramétrique est x=cost et y=sint, à la ques- 
tion x(t)=, il suffit de répondre cos(t) et à la question y(t)=, il 
suffit de répondre sin(t). 

- Corriger : si vous vous êtes trompé en entrant une fonction, 
avec corriger vous l'effacez de la liste, et ainsi vous pouvez 
la réentrer plus tard. Si la fonction est une fonction définie 
par intervalle, vous effacez toutes les fonctions. 

- Quitter : si vous êtes entré dans le menu DEFINIR par er- 
reur, vous pouvez revenir au menu principal, en validant l'op- 
tion Quitter. 

• MENU 2 : EXTREMUM 

- Intervalle de tracé : si vous n'avez pas validé de fonction, 
ce menu est inaccessible. Ce menu vous permet de voir et de 
changer les valeurs des extremums de la fonction. Pour chan- 
ger une valeur, il suffit d'appuyer sur une touche autre que 
Enter, quand on est dessus et de rentrer la nouvelle valeur, 



A 




qui sera prise en compte immédiatement. Si vous appuyez 
sur Enter, vous passez à la valeur suivante. 

- Recherche des extremas : ce menu vous permet de faire une 
recherche automatique des exiremas. Les extremas que l'or- 
dinateur donne ne sont pas automatiquement validés, s'ils vous 
paraissent trop grands, il ne faut pas les valider, mais souvent 
ils donnent une idée des valeurs à entrer à l'aide du menu 
précédent. 

- Quitter : voir précédemment 



• MENU 3 : TRACER 

-Effacer écran : comme son nom l'indique, cette fonction 
permet d'effacer l'écran. 

- Tracer axes : ce menu permet de tracer les axes ainsi que 
leur graduation, avant cette opération, il est conseillé d'effa- 
cer l'écran. Si une unité n'est pas représentée par une gra- 
duation, l'ordinateur le précise. 

- Tracer fonction : permet de tracer la fonction. 

- Tracer tangente : à la question xo=, il faut donner l'abscisse 
du point dont on veut tracer la tangente. Si la fonction définie 
est une fonction vectorielle, il faut donner non pas l'abscisse 
du point, mais la valeur du paramètre pour lequel la fonction 
passe par le point de coordonnées (x,y). Ex : tracer la tan- 
gente au cercle C(0,1) au point M(0,1), à la question xo=, il 
faut entrer pi/2. 

- Quitter : voir précédemmant. 

• MENU 4 : TRAVAIL 

- Calculatrice : permet de calculer toutes les expressions que 
l'Amstrad permet de calculer (sin, cos, log, loglO. . .). 

- Tracer droite : permet de tracer une droite, cette droite peut 
être parallèle aux axes. Il suffit d'entrer les coefficients a, b, 
c, de l'équation de la droite sous la forme ax+by+c=0. Pour 
tracer la droite D:y=2x+3, on a :a=2,b=-l etc=3. 

- Equations : permet de résoudre les équations de la forme 
f(x)=n. Tout d'abord, il faut donner une approximation de la 
solution ou d'une solution, en déplaçant le rectangle à l'aide 
des flèches. Après quoi, il faut donner la valeur de n. 

Pour résoudre les systèmes d'équation de la forme, il faut 
définir une fonction h(x)=f(x)-g(x), puis chercher les solu- 
tions de l'équation h(x>=0, une solution du système est le couple 
(x,f(x)). Ex : résoudre y -J_ n 3 + 2n = 
3 
y + 3 n 2 + n-3 = 
6 2 

Choisir définir fonction, f(x)=l/3*x A 3-2*x+5/6*x A 2+x-3/2. 
Valider cette fonction, la tracer et encadrer la solution. A la 
question n répondre 0. Maintenant il faut définir ta fonction 
f(x)=l/3*x A 3-2*x, valider cette fonction, puis aller dans la 
calculatrice et taper fn f(-3), -3 étant l'abscisse de la première 
solution. Ce menu n'est pas évident à utiliser la première fois, 
mais on s'y habitue vite. Après avoir trouvé les solutions, on 
peut effacer la fonction h(x). 



Autre possibilité : connaître la valeur du paramètre pour la- 
quelle une fonction vectorielle passe par un point. Par exem- 
ple : le cercle. Pour quelle valeur de t passe-t-il par M (sqr (3/ 
2; 1/2». Il suffit de définir et de valider la fonction f(x>=cos(x)- 
sin(x), de tracer la droite y=sqr(3)/2- 1/2 et de résoudre l'équa- 
tion f(x)=sqr (3)/2-l/2 

- Calculer aire : permet de calculer l'aire d'une fonction dé- 
finie par intervalle ou d'une fonction d'une variable réelle, 
mais ne permet pas de calculer l'aire d'une fonction paramé- 
trique. L'aire calculée est celle entre l'axe des abscisses et la 
courbe. Les autres aires se déduisent de celle-ci par soustrac- 
tion à l'aire d'un rectangle. 

A la question a, il faut donner l'abscisse de départ du calcul. 
A la question b il faut donner l'abscisse d'arrivée. 
Ex : calcul de l'aire entre la droite d'équation y=2 et l'axe 
des abscisses de la fonction f(x)=x A 2. A la question a=, il 
faut répondre 0, et à la question b=, il faut répondre sqr(2), le 
résultat obtenu est 2.67, ce qui correspond à l'aire entre l'axe 
des abscisses et la courbe, l'aire demandée se déduit de cette 
aire par soustraction. A=2*V2-A' et on obtient A=0, 15. 

- Grossir zone : permet de définir une fenêtre graphique, où 
toutes les opérations sont exécutables (tracé courbe, tracé tan- 
gente...). Cette fenêtre est très pratique, pour la résolution 
des équations. 

1 . Définir fenêtre : on donne les dimensions de la fenêtre gra- 
phique. Par exemple : lon=320 et h=200. 

2. Valider fenêtre : permet de valider la fenêtre qui a été défi- 
nie avec l'option précédente ; si aucune fenêtre n'a été défi- 
nie, aucune fenêtre n'est ouverte. 

3. Annuler fenêtre : permet de fermer la fenêtre. 

4. Quitter : revient au menu principal. Tous les paramètres 
d'écran sont sauvegardés quand on valide la fenêtre ; lors- 
qu'on la ferme, les paramètres sont remis, c'est-à-dire qu'on 
peut changer les paramètres minimum x,. . . quand la fenêtre 
est ouverte et retrouver les anciens quand on ferme la fenê- 
tre. 

- Quitter : revient au menu principal. 

• MENU 5 : DIVERS 

- Dessiner : permet de donner les valeurs de la fonction pour 
permettre de la tracer sur une feuille de papier millimétré, 
très pratique lorsqu'on a à tracer des courbes chez soi. 

- Imprimer : permet la copie de l'écran graphique sur une 
imprimante compatible Epson. 

- Quitter : revenir au menu principal. 

Attention , ce listing contient certains symboles inaccessibles 
directement. Il faut, pour les obtenir, appuyer simultanément 
sur CTRL (ou CONTROL) + une touche. Voici les symboles 
contenus dans ce listing : 

r = CTRL + A <-= CTRL + H 

©=CTRL + T H=CTRL + W 

->= CTRL + 1 X= CTRL + X 



A 




10 'llflflllttltfitlllffflltllililil 


>U 


ffffi 






20 't 

i 

30 '• 


Euanuel Herrou 


>LB 


présente 


>LC 


40 •• 

• 
50 'l 

• 
60 -t» 


Un traceur de fonctions 


>LD 


«3.3 (C) 1987 


>LE 


ifiiiiiiiiiiiitiitiititiiiii 


>LF 


■ ut 







100 MODE 2:IŒr10RT 15FFF:IF PEEKflAO >HL 

00)01 THEN LOAD"codel.bln',liAOOO:C 

ALL IA0O0 

110 IF PEEK(MA00)O20h THEN LOAD'h )BN 

ardcopy.bin", 49A00 

120 ON ERROR GOTO U000:iin^-5:ui >VD 

l=5:ilny=-5:iaiy=5:iint=-5:iait=5:c 

h=l:h=0.0001:nf = l:u=0:)ri=0:lon--630 

:ha=399 

130 PAPES 0:PEN ltlK 0,0:1* 1,24: >EU 

BORDES O:PRINT'"*CHB«(0) 

140 NOVE 0,0:DRAffl lon,0:DIAW 0,ha >GP 

:DBAWR -ion.O:DBAUR 0, ha 

150 !COHPIL,li6000,l,l,80,l:adr=PEEK >DC 

<lA132)«256tPEEK(M133> 

160 HINDOU 10, 1,80, 1,1: PAPER 1:PEN >GF 

0:CLS 

170 POKE lA2A8,ch:!N£NUS,l:ch=PEEK< >LL 

IA2A8) 

180 ON ch GOTO 200,1000,3000,5000,7 MX 

000 

190 GOTO 160 >ZD 

200 'Définir >BC 



210 lUINDOU.adr, 1,2,13,13 

220 POKE l>A2A8,l::HFJIUS,2 

225 :DECOHPIL,adr, 1,2,13,13 

230 ON PEFJKIA2A8) GOTO 520,250,600 

,800,400 

240 GOTO 160 

250 'Fonction 

255 IF nf=ll THEN GOTO 180 

260 lUINDOU.ldr, 2,3,52,14 

270 LOCATE 18,1:P1INT "DEFINIS FONC 

TION' 

280 GOSUB 10000 

285 IF nf=ll THEN 320 

290 LOCATE l,2«nf :PB1NT nf:";:LINE 

IMPUT "f(«)=',Mnf):IF f»(nf)=" 
THEN 320 

300 f$(nf)='f<l)='«f»(nf):nf=nf»l 
310 GOTO 285 

320 !DEC0HPIL,adr,2,3,52,14:G0T0 16 


400 'Corriger 

410 IF nf=l AND NOT vectorielle THE 
N 160 

420 :UIMWU,adr,2,3,62,18:L0CATE 23 
,l:P»INT •CQSB1G£B FONCTION" 
430 GOSUB 10000:1F vectorielle THEN 

PIINT "11 :i'NIDv(i»,9,LEN<i»>-5): 
PRINT "12 :y"MD»(y»,9,LEN(y»)-5> 
440 PRINT: INPUT 'Corriger (onction 
no:',n:IF n=0 THEN 595 
450 IF n>=ll AND n<13 AND vectoriel 
le THEN vectoriel le=0:vt=0:G0T0 490 
460 IF iMl AND n<13 AND NOT vecto 
rielle THEN LOCATE l,VPOS(IO)-2:G0T 



1 


0440 




470 IF n>=nf THE» LOCATE l.VPOSIIO) >NV 




-2:G0T0 440 


>UG 


480 IF f (n>-0 THEN FOR i=n TO nf-1: >TE 


>UG 


f»(i)=f»(i*l):NEn:nf=nt-l:GOTO 490 


>VF 


481 Intervalle^ >IS. 


>HV 


482 IF f(n-l)=l THEN n=n-l:GOTO 482 >BE 




483 FOR i=n TO nf-ni:f»<i>=f*<i«ni) >HE 


>TK 


:f(i-n»l)=0:NFJT:nf=nf-ni 


m 


490 deffn=O::DEC0HPIL,adr,2,3,62,18 >PH 


>TP 


:GOTO 160 


>ÏK 


520 IF nf=l AND NOT vectorielle THE >01 


>œ 


N 160 




530 lUINDOU.adr, 2,3,62,18 >VB 


>»T 


540 LOCATE 23,1:PRINT 'VALIDER FONC >KG 


>NE 


TION- 


>CN 


550 vt=0:GOSUB 10000 >PH 




560 IF vectorielle THEN PRINT '11 : >BQ 




i"NID»(i»,9,LEN(i«)-5):PRINT '12 :y 


>BU 


•l1IM(y*,9,Lai<r*)-5) 


>ZF 


570 PRINT: INPUT 'Valider fonction n >LD 


>EH 


o:',no:IF no=0 THEN 595 




575 IF no>=ll AND no<13 AND vectori >BJ 


>6E 


elle THEN GOSUB 65100:vt=-l:no=l:G0 


>GK 


TO 595 




576 IF no>=ll AND no<13 AND NOT vec >BE 


>HJ 


torlelle THEN LOCATE 1,VP0S(I0)-2:G 




0T0 570 


>irr 


580 IF no>-nf THEN LOCATE l.VPOSIIO >PA 




)-2:G0T0 570 




585 IF f(no)=0 THEN a»="def fn'«f<( >RG 


>KD 


no):ILIGNE,la«,6S010:G0SUB 65000 




590 IF f(no>=l AND f(no-l)=l THEN n >ZK 


>VU 


o=no-l:G0T0 590 USE IF f (no-l)=0 T 




HEN a»='def fn*»f»(no):ILIGNE,la»,6 


>nj 


5010:G0SUB 65000 


595 defin=-l::DECOHPIL,adr, 2,3,62,1 >QD 
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8:G0T0 160 

600 'Par Intervalle >K 

605 IF «Ml THEN 160 >HC 

610 IF Intervalle THFJ 160 OSE lut >Ptl 

ervalle=-l 

620 lIMNDOU.adr, 2,3,40,10 >VC 

630 LOCATE 7,1:PB1NT ■FONCTIONS PU >VE 

INTERVALLES" 
640 LOCATE 1,3:IMPUT 'Noabre d'inte >TJ 
rvalle:',ni:IF ni=0 THEN intervalle 
=0:G0T0 7S0 

650 FOI 1=1 TO ni >HH 

660 IF n(=U THEN PEINT CHR*(7);:i= >NH 
ni:G0T0 740 

670 LOCATE I,4:PIINT 'Intervalle no >LE 
■1 

680 LOCATE 1,S:LIK INPUT 'Début in >UT 
tervalle :',a«:IF a»=" THEN 660 
690 al--'v<i,0)^»a»:iVAL,la» >IL 
700 LOCATE 1,6:LINE INPUT 'Fin inte >PI 
rvalle :',a»:IF a«=" THEN 700 
710 a»='v(i,l)='»a»::ïAL,la» >IE 
720 LOCATE 1,7:LINE INPUT 'f(l)=',f >FT 
*(nf):IF fl(nf>=" THEN 720 
730 f«(nf)='f(i)='«fl<nf):»(ni>=l:n >Ji 
f=nM:LOCATE 1,5:PBIHT V, 
740 HEIT >EG 

750 IDECOHPIL.sdr, 2,3,40,10 >VH 
760 GOTO 160 >ZG 

800 'Fonctions vectorielle >BJ 
810 IF vectorielle THEN 160 ELSE ve >BG 
ctorlel le=-l 

820 lUIXDOV.adr, 2,3,30,8 >U0 
830 LOCATE 4,1:PIINT 'FONaiONS VEC >BG 
TOI I ELLES* 

840 LOCATE 1,3:LINE INPUT "l(D=',I >T2 
«:1F ii=" THEN vectoriel le=0:G0T0 
880 

850 i»='def (n g(t)=*»i»: !LI6NE,«i« >IK 
,65110 

860 LINE INPUT 'y<t>=",y«:lF y»" >KA 
THEN 860 

870 y«='def fn m>='*y»:ILIGNE,«y« >H1 
,65120 
880 :DECuKPIL,adr,2,3,30,6:GOT0 160 >DH 

900 END >UB 

1000 'Eitreii» >U) 

1010 IBINDOB.adr, 13,2,23, 7-.POXE U2 >UT 
AB,1:IKEHUS,3 

1020 IDECOHPIL.adr, 13,2,23,7 >IE 

1030 ON PEEKIM2A8) GOTO 1050,1300 >ZI 

1040 GOTO 160 >EH 

1050 ' Interval les de trace >IJ 

1055 IF NOT detln THEN 160 >TR 

1060 IF vt THEN :UIH»V,adr,3,2,30, >U I 




1991 



10 ELSE HINDOU, adr, 3,2, 30,8 
1065 ld=0 

1070 LOCATE S,1:P8INT 'INTEIVALLES 
DE TÏACE" 
1080 GOSUB 10100 
1090 LOCATE 7,3:CALL 1BB81 
1100 GOSUB 10200: IF non THEN 1120 
1110 LOCATE 7,3:LINE INPUT r»:IF il 
=" THEN 1110 ELSE r»='lini='*r«::V 
AL.Irt 

1120 LOCATE 21,3:G0SUB 10200:1F non 
THEN 1160 

1150 LOCATE 21,3:LINE INPUT rtilF r 
»=" THEN 1150 ELSE rl="mi='«r«:l 
«AL, tel 

1160 IF unOiini THEN 1090 ELSE L 
OCATE 7,5:G0SUB 10200:1F non THEN 1 
200 

1170 LOCATE 7,5:G0SU8 10200:1F non 
THFJ 1200 

1190 LOCATE 7,5:LINE INPUT r»:IF r» 
=" THFJ 1190 ELSE r«='iiny='tr»:!V 

IL, tel 

1200 LOCATE 21, S. -GOSUB 10200: IF non 

THFJ 1220 

1210 LOCATE 21,5:LINE INPUT r»:IF r 
«=" THFJ 1210 ELSE r«='ia»y='»r»:l 
VAL.ir» 

1220 IF aaiy<=ilny THFJ GOTO 1190 
1225 IF NOT vt THEN 1250 
1230 LOCATE 7,7:GOSUB 10200:1F non 
THEN 1240 

1235 LOCATE 7,7:LINE INPUT ri: IF ri 
=" THEN 1235 ELSE r«='iint='*rl: IV 
IL, tel 
1240 LOCATE 21,7:G0SUB 10200:1F non 

THFJ 1250 

1245 LOCATE 21,7:LINE INPUT rfllF r 
•=•• THFJ 1245 ELSE r»='lait='«ri:l 
VAL.Ir» 

1250 IF iait<=ilnt THEN GOTO 1220 E 
LSE GOSUB 10300 

1260 CALL VBB84:IF vt THEN IDECONPI 
L.adr, 3,2,30, 10 ELSE IDECOHPIL.adr, 
3,2,30,8 
1270 GOTO 160 

1300 'Recherche des eitreauis 
1302 IF NOT detln THEN 160 
1305 l«IMXN,adr,3,2,30,10:L0CATE 5 
,1:PIINT 'BECHEBCHE DES IIAIIIU' 
1310 st=(iaii-ilni)/80:iinyl=lE«3B: 
■aiyl = -lE*38:iiml = lE*38:a»nl = -lE* 
38:L0CATE 1,3:P1INT 'Attendez S.V.P 



1320 IF f (no)=i THEN r=l:GOSUB 1060 
0:G0T0 1335 

1325 IF vt THFJ st=(eait-lint)/80:s 
tart'iint:fin=iait:GOSUB 10400:G0T0 

1335 

1330 start--i!ni:Mn=iBii:GOSUB 1040 


1335 IF linyDO THEN linyl=0 
1340 IF uiyKO THFJ naiyl=0 
1345 IF vt AND ainiDO THEN ainil=0 

ELSE IF vt AND uiiKO THFJ lllll = 


>LU 1350 LOCATE 1,3:PBINT SPACEK29); 
1360 IF vt THFJ LOCATE 1,3:PI1HT 'H 
in i=';t0UW(linil,2):L0CATE 15,3:F 
BINT 'Haï «=';B0UND(ianl,2> 
1370 LOCATE 1,5:PBINT ■Mil y=';BOUN 
D(linyl,2):L0CATE 15,5:PIINT 'Haï y 
■":B0UND(iaiyl,2> 

1380 LOCATE 1,7:INPUT 'Valider eitr 
e«a (O/NI :',al:a»=LOBEI»(nl):IF tl 
O'o' AND aaO'n' THEN 1380 
1390 IF al-'o' THEN llny=ilnyl:niy 
=aiïyl:IF vt THEN aini=iinil:iau=n 
aul 

1400 IDECOHPIL.adr, 3,2,30,10 
1410 GOTO 160 
2990 END 
3000 'Tracer 

3010 :UIND0W,adr,31,2,18,ll:P0KF M 
2A8,1::HENUS,4 

3020 IDECOHPIL.adr, 31, 2,18,11 
3030 ON PEEKIU2A8) GOTO 3050,3100, 
3300,3500 
3040 GOTO 160 
3050 'Effacer écran 
3060 !DECOn?lL,»6000,l,l,80,l:CLG(0 
):OtlGIN »,yl,n,»t|on,yi,yi«ha:D 
8AUB lon.O-.DBAUB 0,ha:DBAVB -lon.O: 
DRAM 0,-ha 

3070 OtIGIN ll*io,yn«yo:GOTO 150 
3100 'Tracer aies 
3110 IF NOT defin THEN 160 
3120 :DECOKPIL,li6000,l,l,80,l:GOSUB 

10340 
3125 IF <uil-lini)<=2 THEN |radi=0 



>DQ 



>VJ 



>Klt 



>CK 



>L» 



>D« 



>AA 
>QH 
>KQ 

>CG 



>LB 



>D6 



>TA 



>FF 



>HH 
>EF 

>vk 

>UK 



>BK 



3127 IF <iaiy-iiny><=2 THEN |rady=0 

.1 

3130 irad«=l:WHILE |radl7iulti<10:l 

radi=|radi«10:WEND 

3140 |rady=l:WHILE jrady/iulty<10:| 

rady=|rady>10:NFJD 

3145 OBIGIN n,yi,ii,n«lon,yi,yi«h 

a:NOVE io,0:DBAy io,ha:IIOVE 0,yo:DB 



>FJ 



>n 

>EJ 
>2J 
>IF 

>vw 

>TF 
>JF 

>EK 
>TA 
>IQ 



m 

>IG 
>TK 
>JF 

>EF 

>FC 

>CL 

>CT 

>HP 



A 



AU lon.yo 

3150 QBIGIN n*:o,yi*yo,ii,iHlon,y >FN 
a,yi*ha:FOR i=0 TO lon-ro STEP grad 
i/Milti:ltOVE i, 2:DRAU t,2:NEZT:F0B 
1=0 TO -10 STEP -|radl/nilti:HOVE 
i,-2:DRAN 1,2:NETT 

3160 FOI 1=0 TO ha-yo STEP grady/au >TH 
lty:N0¥E -2,i:DRAW 2,i:kFJT:F0R 1=0 
TO yo STEP -|rady/iulty:HOVE -2,1 
:DRAU 2 , i : NEIT 

3170 IF gradiOl OU iradyOl THEN ! >HH 
IIINDON, 16000,1, 1,14,S:PRINT *Oi:l " 
^"i|radi:P!INT'Oy:l r-)";|ra(ty:CALL 
MBO6::DEC0h?IL,WOOO,l, 1,14,5 
3180 GOTO 150 >FD 

3300 'Tracer fonction >IJ 

3302 IF MOT defin THE* 160 >TN 
3305 IDECOnTIL,l6000,l,l,80,l:GOSUB >JL 
10340 
3310 st=(un-lini)/320 >TJ 
3320 IF vt THEN GOSUB 10555:CALL IB >NH 
B06:G0T0 150 

3330 IF f(no)=l THEN r=2:G0SUB 1060 >ZC 
0:CALL IBB06:GOTO 150 
3340 start=lin«:fin=iau:GOSUB 1050 >GH 


3350 CALL IBB06:GOTO 150 >IT 
3500 'Calcul dérivée >TA 

3505 IF NOT defin THE» 160 >TU 
3510 :UIKDOW,adr,2,3,20,7:L0CATE 3, >JL 
llFIIIR "TRACER TANGENTE' 
3520 LOCATE 1,3:1MPUT "r,o=",a«:IF a >QG 
»=" THFJ 3520 

3530 a»='iO='«a»: IVAL.ta» >UT 
3535 IDECOHPIL.adr, 2,3,20,7: IDECOHP >TR 
IL,t6000,l, 1,80,1 

3540 IF vt THEM GOSUB 107O0:GOT0 15 >CT 


3550 IF f(no)=l THEN GOSUB 10800:GO >GA 
TO 150 

3560 t=-l:f=(FN f(iO-h)-FN fdO))/- >PK 
h:GOSUB 10900 

3570 t=l:f=(FN f(iOHi) FN fdO))/h: >NG 
GOSUB 10900 

3580 GOTO 150 >FH 

4990 END >AA 

5000 'Travail >IH 

5010 :VIND0U,adr,48,2,15,13:P0KE 1A >VG 
2A8,1:IHEHUS,5 

5020 IDECOHPIL.adr, 48,2,15,13 >YQ 
5030 ON PEEKIIA2A8) GOTO 5050,5100, >PV 
5200,5300,5700 

5040 GOTO 160 >FB 

5050 'Calculatrice >TC 

5060 lUINDW.adr, 2, 18,20,6 >W 
5070 UNE INPUT a$:IF a»=" THEN 50 >CH I 




5080 a«='? '♦a»:IVAL,«at:GOTO 5070 >BE 

5090 IDECOHPlL,adr,2,18,20,6:GOTO 1 >FB 

60 

5100 'Tracer droite >IJ 

5105 IF NOT defin THEN 160 >TR 

5110 IllINDOV.adr, 3,2,22, 8:L0CATE 5, >GI 

1:PRINT 'TRACER DROITE' 

5120 LOCATE 1,3:P8INT 'D:ai»by*c=0' >EJ 

5130 LOCATE 1,4: INPUT 'a=',a»:IF a» >QB 

=" THEN a»='0' 

5135 a»='a='+a«:IVAL,la» >TF 

5140 LOCATE 1,5: INPUT 'b=',a»:IF a* >QE 

=" THEN a»='0" 

5145 a*='b='*al::ïAL,ia» >TH 

5150 LOCATE 1,6: INPUT 'c=',a*:IF a> >0H 

=" THEN a»='0" 

5155 a»='c='*a»:!VAL,ta» >TK 

5160 IDECOHPIL.adr, 3,2,22,8 >W> 

5170 :DECONPIL,KOOO,1,1,80,1:GOSUB >UI 

U3O0:G0T0 150 
5200 'Résoudre équations >IK 

5202 IF NOT DEFIN OR vt THEN 160 >n 
5205 PRINT' J r"i:!DEC0r1PIL,i6O00,i,l >HZ 
,80,1 

5207 ORIGIN n.yl >HE 

5210 HOVE id,0:DRAU id,ha:HOVE id«( >FJi 
gradi/miltll,0:DRAU idHgradi/ralti 
),ha 
5212 a»=INKET»: IF a»=" THEN 5212 >ZF 

5214 HOVE ld,0:DRAU id.la.-HOïE id»( >Et 
fradi/iulti),0:DRAU id*(|radi/iulti 
),ha 

5215 IF a»=CHR»(13> THEN PRINT' 'tC >ZU 
HR«(0):ORIGIH n»io,yi»yo,ii,n*lon 
,yi,yi*l»:GOTO 5255 

5220 IF a«=CHRt(242l THEN id=id-l:G >JU 

OTO 5250 

5230 IF ai=CHRt(243) THEN id=id«l:G >JW 

OTO 5250 

5240 GOTO 5210 >NG 

5245 IF id<l THEN id=l >PC 

5247 IF id>lon THEN io=lon >ÏC 

5250 GOTO 5210 >hrl 

5255 :HINDOV,t6000,50,3,30,10:LOCAT >UP 

E 7,1:PRINT 'RESOUDRE EQUATIONS' 

5260 LOCATE 1,3:1 M PUT 'n=',a«:IF al >NC 

=" THEN 5290 

5270 a»='n='4al:IÏAL,h» >TV 

5280 a=(id-io)Hulti:b=a«|radi >AR 

5285 IF f(nol=l THEN 5500 >RH 

5288 IF SGNIFN f(a)-n)OSGN(FN f(b) >CQ 

■■) THEN GOSUB 11400:PRINT 'S='a:CA 



1.1, 1BB06 

5290 :DECOI(PIL,16000,50.3,30,10:GOT >HB 

ISO 

5300 'Calcul aire >TA 

5305 IF NOT defin THEN 160 >TU 

5310 IUINDOV,adr, 2,3,22,8 >VK 

5320 LOCATE 5, 1:PRINT*CALCUL AIRE' >DA 

5330 LOCATE 1,3: INPUT "a=',a»:IF a» >UH 

=" THEN GOTO 5390 

5340 a»='start-'»a»::VAL,lal >ZT 

5350 LOCATE 1,4: INPUT 'b=',al:IF a« >NR 

«■■ THEN 5390 

5360 al='fin="»a«:!VAL,Ca» >UZ 

5365 IF f (no)-l THEN 5400 >BF 

5370 s=0:GOSUB 11500: IF S=1E*38 THE >IK 

N GOTO 5390 

5380 s=n>s:PRINT 'A=';R0UK0(s,2l:CA >KP 

LL ld)B06 

5390 IDECOHPIL.adr, 2,3,22,8:G0T0 16 >FV 



5400 ian3=iaii:«.ini3=lini:r=3:s=0 >F1 

5410 llni=start:»aii=fin:GOSUB 1060 >LH 

0:uix=iaii3:ilni=lini3 

5420 GOTO 5380 >NE 

5500 'Equation fonctions définies p >TC 

ar intervalle 

5505 FOR 1=1 TO ni >LU 

5510 IF a<v(l,I) THEN c=not|-l:a»=' >FA 

def fn •<f»(c):ILIGNE,ta»,65010:G0S 

UB 65000 

5520 NEIT >LD 

5530 IF b<=v(c,l) THEN 5580 >TH 

5540 IF SGNIFN f (a)-n)OSGN(FN f(v( >IM 

c,l))-n) THEN b=v(c,l):GOT0 5580 

5550 c=c*l:al='def fn "*f»(c): ILIGN >EN 

E,ta»,6S010:GOSUB 65000 

5560 IF SGNIFN f (v(c,0))-n)OSGN(FN >HG 

f(b)-n) THEN a=v(c,0):GOTO 5580 
5570 GOTO 5290 >PA 

5580 GOSUB U400:PRINT *S=';a >IF 
5590 CALL tBB06:G0T0 5290 >TN 
5700 'Grossir zone >TE 

5710 IHINDOV.adr, 2,3,32, 12 >VQ 
5720 LOCATE 10,1:PRINT 'GROSSIR 20N >GA 
E" 

5730 LOCATE 1,3:PRINT '1 - Définir >B2 
fenetre':PRINT'2 - Valider gros pla 
n':PRIHT*3 - Annuler gros »lan':PRI 
NT *4 - Quitter' 

5740 LOCATE 7,9: INPUT 'Votre choil >RQ 
(1-4) :',a 

5750 IF a<l AND a>4 THEN 5740 >UH 
5760 ON a GOTO 5800,5900,6000 >VT 
5770 :0EC0lfPlL,adr,2,3,32,12:G0T0 1 >FA 
60 
5800 'définir fenêtre >TF 



▲ 




5805 IF ec T1ŒN 5720 m 

5810 CLS:LQCATE 6.1:PBINT 'DEFINIK >NT 
FFJŒTBE' 

5820 LOCATE 1,3:INPUT "Longueur^",! >ET 
:1F lon>640 THEN 1=640 

5825 IF 1<=0 THFJ 5850 >PZ 

5830 LOCATE 1,5:INPUT 'Hauteur^, 11 >DH 
:1F 11)400 THEN 11=400 

5840 IF 11» THFJ ec=-l >QP 

5850 CLS:G0TO 5720 >IN 

5900 'Valider fenêtre >TG 

5910 IF DOT ec THEN 5720 >DH 

5920 IDECOHPIL.adr, 2,3,32,12 >IN 

5930 IDECOHPIL, 1*000,1. 1,80,1 >IP 

5940 aini2=alni:aail2=aaii:Btny2=Bi >FB 
ny:uiy2=uiy:uit2=uit:iint2=ilnt 

5950 lon^l 17:h»=ll-20:PilNT^»;::W >IK 
IW)ffll,*7000,l,l 1 l/B,ll/16:P«INT"P: 

5960 ia=8:ylMO0-U»6:0tlGlN ia,ya, >!lt 
ib, ration, yl,ya*ha:G0TO 140 

6000 'Annuler fenêtre >IJ 

6010 IDECOHPIL.adr, 2,3,32,12 >ID 

6020 IDECOWIL,V6000,l,l,80,l:iDECO >FV 
HP IL, 17000,1, 1,1/8,11/16 

6030 H--0:yi=ii:lon=639:ha=399:0«lG >ZB 
IN 0,0,0,639,0,399 

6040 nini=eini2:aaii=eaii2:ainy--Bln >FH 
y2:aaiy=Baiy2:aint=llnt2:iait=aait2 

6050 GOSUB 10340:ORIGIN mio.yatyo >BK 
,0,639,0,399 

6055 ec=0 >DD 

6060 GOTO 150 >FD 

6990 END >AC 

7000 'Divers >IK 

7010 :UIND0W,adr,66,2,10,7:P(KE IA2 >UH 
A8,1:IHEMIS,6 

7020 IDECOHPIL.adr, 66,2,10,7 >IQ 

7030 ON PEEK(IA2A8) GOTO 7050,7500 >AK 

7040 GOTO 160 >FD 

7050 'Dessiner >TE 

7055 IF NOT défia THEN 160 >TT 

7060 :NIND0V,adr,2,3,32,12 >VQ 

7070 LOCATE 12, 1:PRIMT ■DESSINES- >BV 

7080 LOCATE 1,3:PB1NT "Echelle :";: >BK 
IHPUT 'Oi 1 M-->",al:lF a»=" THEN 
7160 

7090 a*='si="ta»:IVAL,ta« >ÏT 

7100 LOCATE 10,4:INP1)T 'Oy 1 «-->■ >ZN 
,a»:IF a«=" THEN 7100 

7110 a»='sy='»a«:IVAL,»a» >VL 

7120 INPUT "Pas du trace :\a«:IF a >UJ 
M" THEN 7120 

7130 al="st=*tat:: VAL, «a» >VH 

7135 start=llni:fin=uu:lilNDO>' 10, >VL 
3,32,6, 10:CLS 



7140 IF vt THEN start=aint:fln=aait >EH 

:GOSUB U600:GOTO 7160 

7150 IF f (no)=0 THEN GOSUB 11600 EL >NE 

SE IF f lno>=l THEN r=4:G0SUB 10600 

7160 IDECOHPIL.adr, 2,3,32,12:G0T0 1 >FV 

60 

7500 'lapriaer >TE 

7510 :DEC0KPIL,MO00,l,l,8O,l:CALL >HD 

DUO 

7520 GOTO 150 >FF 

10000 'Afficher les fonctions >CG 

10010 FOB 1=1 TO nf -1 >N2 

10030 LOCATE 1,2+i :PEIKT 1; : IF f(i) >K 

=1 THEN PBINT «M"| 

10040 P1INT •t*|tt|l) >PA 

10050 NFJT >BE 

10060 BETUBN >LK 

10100 'Afficher Biniiua et Hailaua >CH 

10110 LOCATE 1,3:PR(HT "Hin i=";MU >TC 

ND(llm,2):L0CATE 15,3:PtlNT "liai i 

=';I0tMD(uil,2) 

10120 LOCATE 1,5:PBINT 'Hin y=';BOtl >Œ 

m(iiny,2):L0CATE 15,5:PBIHT 'HAI y 

■-■";B0UND(iaiy,2) 

10130 IF vt THEN LOCATE 1,7:P1IHT ■ >PW 

Hin t=*;H0UND(aiat,2):L0CATE 15,7:P 

SI NT -Haï t^;fiOUND(aait,2> 

10140 tETUBN >U 

10200 CALL IBB81 >AB 

10205 non >K 

10210 at=lhWY»:IF a«=" THEN 10210 >AJ 

10215 IF a»=CHÏ«(13> THE* »on=-l:IE >GV 

ion 

10220 PB1NT* ";:RETUBH >ÏC 
10300 IF ainy>0 THEN ainy--0 >VA 
10310 IF aaiy<0 THEN aaiy=0 >VD 
10320 IF aini>0 THEN alni=0 >VA 
10330 IF ian<0 THEN ian=0 >VD 
10340 nilti = (uii--aini)/(lon-l):iul >FG 
ty=(iaiy-ilny)/(ha-ll 
10350 io=(ABS(ilnil/lBBii-alni))i(l >ER 
on-l):yo=(ABS(aIny>/(aa«y-ilny>)«(h 
a-1) 

10360 BFTUBN >HC 

10400 'Becherche aaiiauB >DA 
10410 FOB l=start TO fin STEP st >2C 
10420 Binyl=HIN(alnyl,FN f(ll):uiy >CG 
l=HAI(aaiyl,FN f (il) 
10430 IF vt THEN ainil=HIN(ainil,FN >QK 
|(l)):iaiil=HAI(uul,FN |(1» 
10440 NFJT >IH 

10450 BETUBN >HC 



10500 'Tracer fonction >DB 
10510 IIOVE start/iulti.FN f(start)/ >U 
aulty 

10520 FOR i-start TO fin STEP st >ZE 
10530 DBAV i/aulti.FN fdl/aulty >BT 
10540 IF SGNIFN f (i*st))OSG*(FK f( >BB 
II) AND ABSIFN f (i»st)/aultyFN fil 
)/Bulty)>50 THEN HOVE (itstl/nilti, 
FN flitsU/Bulty 

10550 NFJT:BETUBN >NK 

10555 st=(aait-aint)/320:start=iint >RH 
:fin=aait 

10560 HOVE FN gljtarO/eulti.FN fis >TN 
tartl/aulty 

10570 FOB l=start TO fin STEP st >AB 
10580 DBAU FN |(i)/lllltl,FN f(l)/au >GV 
Ity 

10585 IF ((FN glil-FN g(i«st)l/ault >TN 
i)*2*((FN f(i)-FN f(ltst))/aultyP2 
>10000 THEN HOVE FN |(i»st)/mltl,F 
N flitstl/aulty 

10590 NEIT:BETUBN >NP 

10600 c=l:ro=no:WILE c<=ni >VT 
10610 start=v(c.O):fin=v(c,l) >TG 
10620 IF alni>=fln THEN 10680 >«V 
10630 IF aini>start THEN start=atni >FU 
10640 IF aan<=start THEN c=nl:GOTO >KC 
10680 

10650 IF aan<f in THEN tivun >AQ 
10660 a«=*def fn •♦f$(ro): ILIGNE.Ia >AH 
»,65010:G0SUB 65000 

10670 ON r GOSUB 10400,10500,11500, >ED 
11600 

10680 c=c»l:ro=ro«l >NP 

10690 VEND: BETUBN >H 

10700 t=-l:f=(FN |(lO-h>-FN J(l0))/ >AT 
-h:fl=(FH f(lO-h)-FN f(iO))/-h:GOSU 
B 10750 

10710 t«l:f»(FN gl.Othl FN gd0»/h >W 
Ifl'ttl fdOth) FN f(«0)l/h:GOSUB 1 
0750 

10720 tETUBN >IK 

10750 hl=SSB((f/iulti)"2«(fl/iulty) >GW 
*2>:ca=fit/(lultHhl):sa=fHt/(lult 
yihl) 

10760 HOVE FN |(iO)/aulti,FN fdOI/ >UI 
aulty:DBAVB 75«ca,75lsa:i=7«ca:y=7» 
sa:HOVEB i, y:OBIGIN <BtIP0St„o,yn 
<TPOStyo:DIAV -y,i:DBA« i,y:DBAU y, 
-l:DBAU 0,0 

10770 08IGIN iitio,yl*yo:BETUtN >CZ 
10800 c=l:ro=no:vTIILE c<=ni >HV 
10805 IF lO>v(c,l) THEN 10870 >VN 
10810 IF i0=v(c,0) AND c>l THEN 108 >BA 
20 




V 



10815 IF i0=v(c,0) AND 0»i THEN 108 >IB I 

25 EL5E 10835 

10820 t=-l:a»="def fn"*f *(ro-l) : !L1 >«l 

GNE,la»,65010:G0SUB 65000: MFN (d 

0-b)-FN f(iO))/-h:GOSUB 10900 

10825 t=l:a»="def fn"*f»(ro) : I LIGNE X» 

,ta«,65010:G0SUB 65000:f=(FN f(iO*h 

IF» f(iO))/h:GOSUB 10900 

10830 c=ni:G0T0 10870 >PT 

10835 IF iO=v(c,l) AH) c<ni THEN GO >HJ 

TO 10845 

10840 IF iO=ï(c,1) AH) c=ni THEN 10 >M 

850 ELSE 10860 

10845 t=l:»«="def fn'tfNroHl-.ILIG >JU 

NE,ia»,65010:G0SUB 6b000:f-(FN fdO 

»h)-FN f(lO)l/h:GOSUB 10900 

10850 t=-l:a»=Mef fn'tfiIrohILIGN >JT 

E,te»,65010:G0SUB 65000:f-(FN f dO- 

h)-FN f(iO))/-h:GOSUB 10900 

10855 c=ni:GOT0 10870 >PF 

10860 t=-l:a*='def fn'tftlro) : :L1GN >JU 

E,§a»,65010:G0SUB 650O0:f=(FN f dO- 

h)-FN fliO))/ h:G0SUB 10900 

10865 t=l:f=(FN f(iO*h)-FN f(lO))/h >VX 

:G0SUB 10900:c=ni 

10870 c=c»l:ro=ro«l >NQ 

10875 KND:CALL MB06:G0T0 150 >TQ 

10900 hl=SQil(l/iulti)'2»(t/iulty)- >BQ 

2>:ca=t/(iultuhlhsa=fit/<iultyibl 

) 

10910 KOVE lO/iultu.FN NiOl/iulty: X3I 

DRAW 75«ca,75«aa:»=7ica:y=7ija:hT)V 

El -i,-y:0IIGlN inIPtlSno,yi«TPOS< 

yo:DBAW y,i:DRAV l,y:DÏAW y,-i:DIA 

■ 0,0 

10920 OtIGIN iitio.yi*yo:IETUEN >CH 

11000 'traiteient erreur >CH 

11010 IF FJL-10420 01 EIL= 10430 THE >PZ 

N RESUHE 10440 

11020 IF EBLM0510 THEN start=start >WÏ 

«st'.IESUHE 10510 

11030 IF EBL=10530 THEN IESUKE 1120 >C0 



11040 IF EÏL= 10540 THEN IESUKE 1120 >CT 



11050 IF EIL= 10560 THEN start=start >NV 

«(uit-llnt)/320:IESUHE 10560 

11060 IF EBL=10580 THEN IESUHE 1125 >CE 



11065 IF EBL--1058S THEN BESUKE 1125 >CQ 



11070 IF EBU11210 THEN IESUKE 1120 >0) 



11080 IF EIl=11260 THEN BESUKE 1125 >CC 



11090 IF ESL=10700 THEN IESUKE 1071 >CB 




11100 IF ERL --10/10 THEN BESUKE 1072 >CV 


11110 IF ERL=3560 THEN BESUKE 3570 >AU 
11120 IF EIL=3570 THEN BESUKE 3580 >A2 
11130 IF ERL=S080 THEN BESUKE 5070 >AU 
11140 IF ESL=10820 THEN IESUKE 1082 >CH 
5 

11145 IF ERL=10625 THEN BESUKE 1083 >CP 


11150 IF EBH0845 THEN IESUKE 1085 >CP 


11155 IF ERL=10850 THEN BESUKE 1085 >CW 
5 

11160 IF EIL=5540 THEN IESUKE 5590 >AF 
11170 IF EIL=11520 THEN s=lE«38:IES >UI 
UKE 11530 

11175 IF ERL-11620 THEN IESUKE 1164 >Cl. 


11190 END >EG 

11200 GOSUB 65000 >LQ 

11205 i=i*st:IF Dfin THEN GOTO 105 >DY 
50 

11210 NOVE l/iulti,FN f(l)/nilty >BD 
11220 GOTO 10550 >AK 

11250 I=Hst:IF Dfln THEN GOTO 105 >DC 
90 

11260 KOVE FN |(I)/nilti,FN f(i)/m >GB 
Ity 

11270 GOTO 10590 >BJ 

11300 'Tracer droite >DA 

11310 IF a=0 ANS b=0 THEN IETUIN >TZ 
11320 IF a=0 THEN KOVE ■In/ailti,- >TN 
c/<b«lulty):DBA» laii/iulti, -c/(b«i 
ulty):lETUM 

11330 IF b=0 THEN KOVE ~c/(a»iulti> >T0 
,,liny/iulty:DRAU -c/(atiult«),iaiy/ 
iulty:IETUBN 

11340 IF A8S(<hnulti)/(a«iulty>>>= >PA 
1 THEN 11360 

11350 NOVE ■lni/nilti,(-aillni-c)/( >DU 
binilty):D!AV uu/nilti, (-aiuii -c 
)/<b«ulty):IETUIN 

11360 KOVE l-bulny c)/(a»iulti),ll >DZ 
ny/mlty:D8A» ( -b«aiy-c>/(atiultl> 
,iaiy/lulty:RETUÏN 

11400 'lesoudre f(i)=n >DB 
11410 aa=l:WH!LE aa>=0. 000000001 >ZJ 
11420 al=(b-a)/2:v=FN f (a«ai)-n >TE 
11430 IF v=0 THEN a=a«ai:IETuïN >ZJ 
11440 IF SGN(»i--SGN(FN f(a)-n) THEN >VG 
a=atai ELSE b=b-aa 
11460 VEND >QD 



11470 IETUIN >IF 

11500 'Calcul aire >DC 

11510 n=(fin-start>/512 >TS 

11520 FOI i--start TO tin STEP lira >TU 
«ABSIFN f (i)):NETT 

11530 IETUIN >HC 

11600 'Donner valeur fonctions >DD 

11610 FOI i=start TO fin STEP stisi >DN 

11620 i=i/si:y=FN f(l)/sy >UT 

11625 IF vt THEN i-FN j(i)/si >WK 
11630 PIINT •i=";IOUM)(i,l),'y='|B0 >NA 
UNDIy.l) 

11635 CALL IBB06 >BB 

11640 NFJT )TA 

11650 IETUIN >NF 

65000 'Fonction >DG 
65010 DEF FNf (i) = (EIP<i)*EIP< i>>/2 >CH 

65020 BETDÏN >IF 

65100 'Fonction vectorielle >DH 

65110 DEF FN |(t)=C0S(tl-3 >UU 

65120 DEF FN f <t)=SlN(t)-2 >UT 

65130 EETUÏN >HH 



o 



10 A'lAOOO:F--aA4AF:L=100:WILE K'f >TC 
:FOI A=A TO A»1S:IEAD C»:K=ÏAL(U , t 
C»):S=S*K*65536«(S«I!>32767):IF A<=F 

THEN POKE A,K 

20 NFJT:IEAD D»:T=VAL("»"«D»):IF T< >HH 
>S THEN PIINT CHB»(7);'Erreur ligne 
■;L:END ELSF L=L«5:WEND 
25CLEAI >DF 

30 SAVE'codel.bin*,b,M000,l4AF >BG 
40 A--MA00:F--WABF:L=475:yHILE A<=F >TN 
:F01 A=A TO A*15:ÏEAD C»:K=VALC»'« 
C«):S=S*K«65536i(S«K>32767):IF A<=F 

THEN POKE A,K 
50 NEIT:READ D» :T=WAL( 'l'+D») : IF T< >HL 
>S THEN PIINT CHI«(7);"Erreur ligne 
•;L:END ELSE L=L»5:UEHD 
60 SAVE'hardcopy'.b.UAOO.UF >AZ 
100 DATA 01,09,AO,21,3F,AO,C3,D1,BC >FJ 
,1D,A0,C3,43,A0,C3,91,07B1 
105 DATA A0,C3,35,A1,C3,60,A1,C3,8B >EH 
,Al,C3,OC,A2,43,4F,4D,0FED 
110 DATA 50,49,CC,44,45,43,4F,4D,50 >EG 
, 49, CC, 56, 41, CC, 4C, 49, 161/ 
115 DATA 47,4E,C5,57,49,4E,44,4F,D7 >EZ 
,4D, 45, 4E, 55,03, 00,00, 1BD1 
120 DATA 00,00, 00, FE, 05, C0.3E, 18,32 >& 
,81,A0,CD,BF,A0,7E,4F,2236 
125 DATA 06,00,04,28, 11, CD,FF,AO,FD >FV 



, 35,05,28, 26,FD,34,05,27A0 

130 DATA 7E,B9,2O,03,18,EC,O5,79,FE >EL 

,FF,2B,05,78,FE,03,38,2E57 

135 DATA 19,3E,FF,12,13, 78,12,13, 79 >Eq 

,12,13,FD,73,06,FD,72,33F2 

140 DATA 07,18,CB,3E,C9,32,81,A0,18 >EH 

,DD, 79,12, 13,10,FC,18,39ED 

145 DATA BD,FE,05,C0,CD,BF,A0,1A,FE >FE 

,FF,20,15,13,1A,47,13,416C 

150 DATA 1A,77,CD,FF,A0,FD,35,05,C8 >EF 

,FD,34,05,10,F2,13,18,48CB 

155 DATA E6,77,13,CD,FF,A0,FD,35,05 >FQ 

,C8,FD,34,05,18,D8,DD,51A9 

160 DATA 7E,00,17,17,17,FD,21,2C,A1 >EH 

,FD,77,00,DD,4E,02,FD,57F5 

165 DATA 71,01,FD,71,02,DD,6E,04,DD >EJ 

,66,06,28,11, 50,00, CD.5DC7 

170 DATA BE,BD,DD,5E,06,DD,56,07,1B >EH 

, 19, 11,00,C0,19,FD, 75,6440 

175 DATA 03,FD,74,04,AF,FD, 77,05, DO >FP 

,5E,08,DD,56,09,C9,23,6B58 

180 DATA FD,35,01,C0,FD,7E,02,FD,77 >H1 

,01,FD,35,00,20,04,FD,7290 

185 DATA 34,05,C9,FD,6E,03,FD,66,04 >EF 

,D5,11, 00,08, 19,30, 04.77A2 

190 DATA 11,50,CO,19,D1,FD,75,03,FD >DK 

, 74,04, M, 00, 00, 00, 00, 7D60 

195 DATA 0O,0O,O0,O0,OO,FE,01,C0,DD >DJ 

,6E,00,DD,66,01,4E, 06,8202 

200 DATA 00,23,5E,23,56,EB,U,A4,AC >FG 

,D5,ED,B0,AF,12,E1,CD,8A29 

205 DATA 00,B9,CD,BB,DE,21,40,00,7E >FQ 

,CD,AB,DD,CD,03,B9,C9,92CE 

210 DATA FE,O2,C0,0D,6E,O2,DD,66,03 >EE 

,4E,06,00,23,5E,23,56,986F 

215 DATA EB,11,A4,AC,ED,B0,AF,12,21 >FT 

,A4,AC,DD,5E,00,DD,56,AOF8 

220 DATA 01,CD,00,B9,CD,D2,E6,CD,03 >FF 

, B9, C9, FE, 05, CO, DD, E5, AADB 

225 DATA CD,43,A0,DD,E1,CD,F4,A1,CD >FB 

,6C,BB,DD,35,00,DD,35,B4C3 

230 DATA 00,DD,35,02,DD,35,02,3E,96 >EB 

,CD,5A,BB,DD,46,02,3E,BB04 

235 DATA 9A,CD,5A,BB,10,FB,3E,9C,CD >GF 

,5A,BB,DD,46,00,C5,3E,C36D 

240 DATA 95,CD,5A,BB,DD,46,02,3E,09 >FG 

,CD,5A,BB,10,FB,3E,95,CB10 

245 DATA CD,5A,BB,C1,10,E8,3E,93,CD >FG 

,5A,BB,DD, 46,02, 3E,9A,D35B 

250 DATA CD,5A,BB,10,FB,3E,99,CD,5A >FB 

,BB,M,34,06,DD,34,04,DB2D 

255 DATA CD,F4,A1,C9,DD,66,06,25,DD >FF 

,6E,04,2D,DD,7E,02,84,E323 

260 DATA 57,15,DD,7E,00,85,5F,1D,CD >FI 

,66,BB,C9,FE,01,C0,2I,EA82 




265 DATA AC,A2,DD,7E,00,3D,47,B7,80 >FD 

,85,6F,7E,32,A9,A2,23,F1C8 

270 DATA 5E,23,56,ED,53,AA,A2,D5,DD >FG 

,E1,3A,A9,A2,47,C5,CD,FB1C 

275 DATA 90,A2,C1,D0,23,DD,23,10,F5 >FH 

,3A,A8,A2,DD,2A,AA,A2,03EB 

280 DATA 3D,87,DD,B5,DD,6F,3E,1B,CD >FZ 

,5A,BB,CD,90,A2,3E,18,0BEA 

285 DATA CD,5A,BB,CD,06,BB,FE,F2,28 >FB 

,U,FE,F0,2a,0D,FE,F3,1597 

290 DATA 28,1A,FE,F1,2B,16,FE,0D,C8 >FB 

,18,CE,CD,90,A2,3A,A8,1DA0 

295 DATA A2,3D,20,03,3A,A9,A2,32,A8 >ED 

,A2,18,BD,CD,90,A2,3A,24B1 

300 DATA A9,A2,47,3A,A8,A2,B8,20,01 >H1 

,AF,3C,32,A8,A2,18,A9,2BC8 

305 DATA DD,6E,00,DD,66,01,56,23,5E >FB 

,23,EB,CD,75,BB,EB,46,336A 

310 DATA 23,7E,CD,5A,BB,10,F9,C9,01 >EK 

, 00,00,00, 05,BE,A2,06,392B 

315 DATA C8,A2,03,D4,A2,05,DA,A2,06 >EH 

,E4,A2,03,F0,A2,F6,A2,4248 

320 DATA 02,A3,0F,A3,1A,A3,26,A3,31 >ET 

,A3,3F,A3,4D,A3,5B,A3,48C9 

325 DATA 69,A3,77,A3,85,A3,9D,A3,B5 >FI 

,A3,CD,A3,DF,A3,F1,A3,5335 

330 DATA 03,A4,15,A4,27,A4,37,A4,47 >ET 

,A4,57,A4,67,A4,77,A4,5A47 

335 DATA B7,A4,92,A4,9D,A4,02,01,09 >DQ 

, 20,44, 65,66,69,6E,69,6064 

340 DATA 72,20,12,01, OA, 20, 45, 78, 74 >DE 

,72,65,60,75,60,20,22,640: 

345 DATA 01,06,20,54,72,61,63,65,72 XX 

,20,32,01,08,20,54,72,6897 

350 DATA 61,76,61,69,BC,20,42,01,08 >DE 

,20,44,69, 76,65,72, 73.6D9C 

355 DATA 20,01, 01, 08,56,61, 6C,69, 64 X* 

,65,72,20,20,20,20,01,7111 

360 DATA 03, OB, 46, 6F, 6E, 63, 74, 69, 6F >DP 

,6E, 20,20,20,01, 06, OB.74D0 

365 DATA 49,6E,74,65,72, 76,61, 6C,6C >DA 

, 65,20,01, 07.0B, 56,65,7904 

370 DATA 63,74,6F,72,69,65,6C,6C,65 >EG 

,01,09,OB,43,6F,72,72,7F42 

375 DATA 69,67,65,72,20,20,20,01, OB >DN 

, 06,51, 75,69, 74, 74, 65, 83DC 

380 DATA 72,20,20,20,20,01,01,15,49 >DA 

,6E, 74,65,72, 76,61, 6C,882A 

385 DATA 6C,65,20,64,65,20,74,72,61 >DB 

,63,65, 72, 20,01,03, 15,80E 

390 DATA 52,65,63,68,65,72,63,68,65 >DK 

,20,64,65,73,20,65,78,92A0 

395 DATA 74,72,65,6D,61, 01, 05,15,51 >DZ I 



| ,75,69,74,74,65,72,20,97E2 
400 DATA 20,20,20,20,20,20,20,20,20 X3 
,20,20,20,20,01, 01, 0F.9993 
405 DATA 45,66,66,61,63,65,72,20,65 >DU 
, 63,72,61, 6E, 20,20,01, 9EA9 
410 DATA 03,OF,54,72,61, 63,65,72,20 >DB 
,61, 78,65,73, 20,20,20,A34D 
415 DATA 20,01, 05,0F, 54, 72,61, 63,65 >DW 
,72,20,66,6F,6E,63,74,A81D 
420 DATA 69,6F,6E,01,07,OF,54, 72,61 >EE 
,63,65,72,20, 74,61, 6E.AD3E 
425 DATA 67,65,6E,74,65,01,09,0F,51 >DÏ 
, 75,69, 74,74,65,72,20,B278 
430 DATA 20,20,20,20,20,20,20,01,01 >DA 
,0D,43,61,6C,63,75,6C,B5BB 
435 DATA 74,72,69,63,65,20,20,01,03 >DK 
,00,54,72,61, 63,65, 72, BA84 
440 DATA 20,64,72,6F,69,74,65,01,05 >DP 
,00,45, 71, 75,61, 74,69,BFA7 
445 DATA 6F.6E, 73,20,20,20,20,01, 07 >DK 
, 00,43, 61, 6C,63,75,6C,C3E0 
450 DATA 65,72,20,61,69,72,65,01,09 >DL 
, 00,47,72, 6F,73,73,69,C906 
455 DATA 72,20, 7A,6F,6E,65, 20,01,08 >EH 
,0D,51,7S,69,74,74,65,CE09 
460 DATA 72,20,20,20,20,20,20,01,01 >Dfl 
,08,44, 65,73, 73,69,6E,D1AB 
465 DATA 65,72,01,03,08,49,60,70,72 >0Q 
,69,6D,65,72,01,05,08,D6E1 

DATA 51,75,69,74,74,65,72,20,00 >CD 
,00, 00, 00, 00, 00, 00, MEF 
DATA CD,BA,BB,CD,E7,BB,32,BC,9A X* 
,6B,9A,21,8F,01,22,08DE 
DATA BD,9A,11,00,00,3E,07,32,BF >ED 
,CD,7B,9A,0E,O0,3A,OE4O 
DATA BF,9A,47,E5,D5,C5,CD,F0,BB >QC 
,D1, 21, BC9A.BE, El, 197F 
DATA 37,20,01,A7,CB,U,2B,2B,10 >FE 
,CD,AE,9A,79,CD,A5,20A9 
DATA 9A,13,E5,21,7F,02,37,ED,52 >EH 
,38,05,2A,BD,9A,18,270A 
DATA CC,23,7C,B4,2B,11, 00,00,22 >EB 
,9A,3E,07,BD,20,BA,2CBA 
DATA 7C,B4,20,B6,3E,04,32,BF,9A >FH 
,AF,3E,1B,CD,A5,9A,33B9 
DATA 3E,41,CD,A5,9A,3E,07,CD,AS >FH 
,C9,E5,3E,42,CD,1E,3BAE 
DATA BB,E1,28,02,E1,C9,3E,0D,CD >FB 
,9A,3E,0A,CD,A5,9A,43C9 
DATA 3E,1B,CD,A5,9A,3E,4C,CD,A5 >GH 
,3E,7F,CD,A5,9A,3E,4BCB 
DATA 02,CD,A5,9A,C9,CD,2E,BD,38 >GB 
CD,2B,BD,C9,3A,BF,5504 
DATA 9A,FE,07,C8,AF,CB,11,CB,11 >EZ 
,11,C9,00,00,00,00,5B77A 



470 
,00, 
475 
,CD 

480 
,9A 
485 
,C1 
490 
,E9, 
495 
,E1, 
500 
,BD 
505 
,18 
510 
,9A 
515 
,A5. 
520 
,9A 
525 
,FB, 
530 
CB 
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Tri 



Pierre-Georges MARECHAL 




Voici un sous-programme très 
pratique pour ceux a" entre vous 
qui font des logiciels où il est 
nécessaire de classer des listes 
de noms par ordre alphabétique. 

Il existe différentes méthodes de tri 
alphabétique ; celle-ci n'est pas une 
invention, elle existe dans tous les ma- 
nuels d'informatique et présente l'avan- 
tage d'être très rapide. Par exemple, pour 
classer 200 noms, il suffit de 20 secon- 
des sur CPC 6128 et de 5 secondes sur 
PC. La méthode usuelle demande envi- 
ron 5 minutes !... 

Regardons le listing : 
-La ligne 10 dimensionne le tableau à 
classer. 

Les lignes 20 et 30 chargent (pour l'exem- 
ple) les datas dans le tableau originel. 
Ensuite vient le programme de tri. 
La ligne 200 donne le tableau classé. 

Cela est un exemple et il est très facile 
d'intégrer sous forme de routine la par- 
tie active du programme. Une seule chose 
à respecter : la cohérence de la variable 
du tableau (Nom<L$> el Indice <I>). 
En espérant que ce petit programme vous 
sera très utile. . 

NOTE : Pour transformer ce programme 

de tri alphabétique en tri numérique rien 

de plus simple. Il suffit de modifier les 

variables alphabétiques en variables 

numériques. 

c.-à-d..L$ -> L et PersS -» Pers 



4 'Pierre-Georges MARECHAL Le 9 Av >FD 
ril 1988 

5 ' PROGRAMMÉ TR >FF 
I 

6 ' >FF 
10 MODE 2:OS:DIH L*</.0):REST0RE 22 >DD 


20 FOR 1=1 TO 20 :' Chargetent du t >DA 
ableau 

30 READ Lt(.):NEXT 1 >HL 

31 L0CATE 25,1:PRINT"« DEHONSTRATI >HQ 
ON »" 

40 ' >LD 

50 '* Program de tri >LE 

60 k=i:GÛSUB 200:k=40:*Ecriture du >QV 
tableau originel 

61 L0CATE B,22:P1]NT*TABLEAU NON C >LG 
LASSE" 

70 n=i-l:e=INT(n/2) >NG 

80 IF e<l THEN GOSUB 200:L0CATE 46, >UG 
22:PRINT -TABLEAU CLASSE'îPRINTtEND 



METEO 



90 nd=! >K 

100 IF nd<(n-e) OR nd=(n-e) THE» 12 >BU 


110 e=INT(e/2>:G0T0 80 >0T 

120 na=nd >HJ 

130 IF l»(lu)<L*(lu«e) 01 Hlnal-LI >0Y 
(na*e) THEN 160 

140 perl=!l<na>:!»(na>l«(na«e>:lt( >TF 
na*e) : per*:na-na-e 

1S0 IF na>l 01 na=l THEN 130 >UH 
160 nd=nd«l >IU 

170 GOTO 100 >TF 

180 '• Fin du proiruw de tri >BK 
190 '• Ecriture tableau classe >TA 
200 F0B 1=1 TO 20:L0CATE 10»k,ilPll >BC 
NT lt(l):NETr:tETUBN 
210 • >«D 

220 DATA a, b,c,d,e, bonjour lecteur, >ZZ 
g,g(,ff,wouah wouah!,dd,cc,dd,bon)o 
ur aii CPC, abc, abcd,aaaaa,fgh, bonne 
chance, rt t» 



n CPC 464 
^CPC .Mit- 



Martial STAUB 

Quel temps faisait-il le 31 mars 
1922 ? Vous ne le savez pas ? 
Si vous aviez eu un Amstrad et 
le programme Météo à cette 
époque, vous pourriez 
immédiatement le savoir. 

En effet Météo peut être utilisé com- 
me base de données concernant les 
phénomènes atmosphériques. Vous ob- 
tiendrez ainsi les moyennes par année ou 
la représentation graphique d'un jour par- 
ticulier... 

Tapez le premier listing et sauvez-le sous 
le nom de METEO. Puis faites de même 
avec le deuxième programme qui sera 
intitulé METEOl. 




Meteo 

10 '•illHittitifflftltfllltittf >1,A 

20' METEOROLOGIE >LB 

30 . )LC 

40 ' (cl STAUB rUBTIAl. >LD 

50 ' SEPTEMBRE 1988 >LE 

60 'fiitiffifittiiittfilftififitl >LF 

70 ' >LC 

80 ' INITIALISATION >LH 

90 ' — >U 

100 GOSUB 360 >« 

110 IMC 0,15:1m 1,15:1* 2,15:INK >UV 
3,15:INK 4,15:INK 5,15:1* 6,15:INK 
7,15:1NK 8,15:1»! 9,6,2:1* 10,0:1 C 



▲ 



>* 11,15: IMK 12,15:B0BDER 15:H0DE \ 
:PAPEI 11:PEN 10:CL5 
120 LOCATE 3,6:PBIKT". . .UN INSTANT. >HB 



m 



130 SPEED INK 40,40 

140 PEU 9:L0CATE 6,1:PI1NT'H ETE 

OVPEN 10:L0CATE 2,3:PIINT > (c) STAU 

B HAITIAL' 

150 QB1GIH 28,290:NAV S82,0,0:DEAW 

582,-276:DMV 0,-276:D(AV 0.0:DBIG 
IN 32.288:Fll± G 

160 GOSUB 320:G0SUB 28O:i=-60:F0B s 
=1 TO 3:i=i«180:G05UB 220:KEIT 
170 INK 0,0:IIK 1,26:1»! 2,1:1* 3, 
24: IHt 4,18:1»! 5,9: I* 6,U:1NK 7, 
3:1»! 8,23:1»! 9,2:1»! 11,15:1* 12 
,20:5PEED INK 20,20:1* 13,2,15:L0C 
ATE 2,6:PEX 13:PBHCTH0DE D'EMPLOI 

0/N' 

180 a»=WŒT»:IF a«=" THEN 180 
190 IF UPPEB«(al)='0 - THEN 1080 
200 IF UPPERt(a»)='N" THEN LOCATE 1 
,5:PI1NT STRING«(19,128):G0T0 1080 
210 GOTO 180 

220 riBIGIN i,272:DMU 4,0,2:DRAW 4 
,-2:DBAV» 4,-2:DlAW 12, -2:MAWB 10 
,2:DRAWB 4,0:DMVI 12,6:DBA«R 10,4: 
DBAWR 10,2:D1AV1 6,-4:DBAWB 10,-10 
230 DRAIfB 8,-4:DlAW 6,-4:BIAIÏ 4,- 
6:DRA¥R 2,-10:NAWI -4,-4:NAVI -6, 
-2:DEAUR 4,0:DRA« -4,-4:MABÏ -6, 
-2:DIAM -4,0:DIAWI -6,-4:DiAUI -4, 
2: DRAW» -2,2:MAW -6,0 
240 DBAVB -6,2:DRAW -4,2:MAUt -4, 
: DSAWR -4,4:HAM -2,6:DtAHI -6,-2 
:DSAW8 -6,-2:DIAUI -»,-2:DBAWB -6, 
2:DRAW -6,0:HAUI -6,2:DUW -4,2: 
DKAUB -4,4:DRAM -4,6:DUN1 -4,6 
250 DBAWB 2,6:DBAWI 2,4:DBAWR 2,4:D 
UNI 2,2 

260 OIIGIN i»10,240:FILL 2 
270 BETURN 

280 DEG:0B1GIN 564,254:F0I 1=1 TO 3 
60 STEP 6:PL0T 22tSIN(l),22«C0S(l), 
3:NEn:BAD 

290 OIIGIN 566,252:FILL 3 
300 DEG:F01 1=1 TO 360 STEP 30:OBIG 
IN 564,254:DBAU 28iSIN(l),28»C0S(i) 
riBTlMD 
310 BETUKN 

320 OIIGIN 32,46:DBAU 574,0,5:DSAW 
574,-30:DÏAU 0, 30:DBAW 0,0:0B1GIN 
36,44:FILL 5 

330 PEN 4,1: LOCATE 4,20:PIINT CHfil. 
240):L0CATE 4,21:PIINT CHMI241):PF 
N 0,1: LOCATE 4,22:PIINT CHB«(242):P 



>HA 



>ÏK 
>KR 



>JN 



EN 4,1: LOCATE 6,20:PIINT CHM(240): 

LOCATE 6,21:P1INT CHM(241I:PEN 0,1 

: LOCATE 6,22:PIINT CHBK242) 

340 PEN 7,1:L0CATE 11,21:PIINT dit: 

PEN 12,1:L0CATE 11,22:PIINT d2» 

350 PEN 0,0:IETUIN 

360 STKBOL AFTEfi 160 

370 STHBOL 160,0,0,0,238,138,234,42 

,238 

380 STHBOL 161,0,0,0,142,136,140,13 

6,238 

390 STHBOL 162,0,0,0,160,160,160,16 

0,184 

400 STHBOL 163,0,0,0,234,170,170,17 

0,174 

410 STHBOL 164,0,0,0,238,168,238,17 

0,174 

420 STHBOL 165,0,0,0,238,136,206,13 

0,238 

430 STHBOL 166,0,0,0,238,138,138,13 

8,238 

440 STKBOL 167,0,0,0,170,170,170,17 

0,228 

450 STHBOL 168,0,0,0,238,138,204,13 

8,234 

460 STHBOL 169,0,0,0,224,64,64,64,6 

4 

470 STHBOL 170,0,0,0,232,168,232,13 

6,142 

480 STHBOL 171,0,0,0,186,162,178,16 

2,187 

490 STHBOL 172,0,0,0,168,168,144,16 

8,168 

500 STHBOL 173,0,0,0,238,168,172,16 

8,17* 

510 STHBOL 174,0,0,0,187,162,187,17 

0,187 

520 STHBOL 175,0,0,0,170,42,41,42,1 

86 

530 STHBOL 176,0,0,0,128,128,0,128, 

128 

540 STHBOL 177,0,0,0,238,170,172,17 

0,234 

550 STHBOL 178,0,0,0,238,136,236,40 

,238 

560 STKBOL 179,0,0,0,224,128,128,12 

8,224 

570 STKBOL 180,0,0,0,170,170,234,17 

0,174 

580 STHBOL 181,0,0,0,171,234,170,17 

0,171 

590 STHBOL 182,0,0,0,56,160,176,160 

,56 



àeOO STKBOL 183,0,0,0,238,138,142,13 >FE 
[8,234 

610 STHBOL 184,0,0,0,138,142,138,13 >FF 

8,234 

620 STHBOL 185,0,0,0,224,128,192,12 >FF 

8,224 
>LD 630 STHBOL 186,0,0,0,238,138,202,13 >FF 

8,142 
>NT 640 STHBOL 187,0,0,0,238,164,196,16 >FT 
>PZ 4,164 
>FJt | 650 STHBOL 188,0,0,0,171,170,170,17 >EV 

0,75 
>FI I 660 STHBOL 189,0, 0, 0, 163, 162, 163, 16 >FU 

2,187 
>FÏ 670 STKBOL 190,0,0,0,187,41,41,41,1 >CN 

69 
>FI j 680 STHBOL 191,0,0,0,128,0,0,0,0 >TT 

690 STHBOL 192,0,0,0,238,72,76,72,7 >CV 
>FL | 8 

700 STKBOL 193,0,0,0,174,234,174,16 >FT 
>FZ 8,168 

710 STKBOL 194,0,0,0,238,164,228,16 >FP 
>FI 4,164 

: 720 STHBOL 195,0,0,0,174,170,172,17 >FE 
>FZ ' 0,234 

730 STHBOL 196,0,0,0,174,168,172,16 >EB 
>FK 8,78 

740 STHBOL 197,0,0,0,238,164,164,16 >FV 
>CH 4,164 

750 STHBOL 198,0,0,0,160,160,64,160 >EP 
>FT ,160 

! 760 STHBOL 199,0,0,0,234,138,202,13 >FI 
>FW 8,238 

770 STHBOL 200,0,0,0,238,136,200,13 >FI 
>FC 6,238 

780 STKBOL 201,0,0,0,142,138,142,13 >FT 
>F0 ! 8,234 

790 STKBOL 202,0,0,0,187,170,178,17 >FL 
>FT 0,171 

800 STKBOL 203,0,0,0,174,40,44,40,1 >CC 
>« 74 

810 STHBOL 204,0,0,0,87,85,85,85,39 >BK 
>DB 

820 STHBOL 205,0,0,0,81,81,81,81,93 >BQ 
>FF 

830 STHBOL 206,0,64,128,192,0,128,0 >EI 
>EZ ,192 

840 STHBOL 207,0,0,0,238,170,204,17 >FT 
>FL j 0,234 

| 850 STKBOL 208,0,0,0,234,170,170,17 >FC 
>FZ ; 0,238 

! 860 STHBOL 209,0,0,0,162,162,162,16 >FL 
>FZ ; 2,187 

670 STHBOL 210,0,0,0,59,42,59,42,17 >BH 
>DL J 

I 880 STHBOL 211,0,0,0,176,166,40,168 >EE 



A 



,176 

880 SYMBOL 212,0,0,0,224,126,224,32 >EH 

,224 

900 SYMBOL 240,0,24,60,126,255,255, >HW 

255, 2S5 

910 SYMBOL 241,255,255,255,255,255, >KT 

126,60,60 

920 SYMBOL 242,24,24,24,24,24,24,24 >DC 

,60 

930 SYMBOL 243,1,3,7,15,31,63,127,2 >CZ 

55 

940 SYMBOL 244,128,216,248,246,248, >MZ 

252,254,255 

950 SYMBOL 245,127,115,115,127,127, >MV 

115,115,115 

960 SYMBOL 246,254,230,230,254,254, >HJ 

254,254,254 

970 SYMBOL 247,0,0,32,20,73,73,42,1 >CE 

8 

980 SYMBOL 248,18,146,82,84,89,82,5 >FE 

2,24 

990 SYMBOL 249,37,37,60,60,60,60,60 >DB 

,60 

1000 SYMBOL 250,60,126,255,255,255, >K¥ 

126,60,24 

1010 SYMBOL 251,60,60,60,60,60,60,6 )EB 

0,60 

1020 SYMBOL 213,0,0,0,206,168,172,1 >GJ 

68,206 

1030 SYMBOL 214,0,0,0,168,232,171,1 >GR 

68,168 

1040 dl»=CHB4(243)tCHM(2W):d2l=CH >VP 

l»(24S)*CHB.(246> 

1050 RETUBN >EK 

1060 PEU hLOCATE 1,B:PB1HT CHBK16 >BK 

);TAB(6)"CHAÏGEMBir 

1070 BIM *HETE01" >LL 

1080 ' >YB 

1090 'MODE D'EMPLOI >TC 

1100 • >Œ 

1110 BORDES 13:H0DE 2: 1NK 0,13:INK >ZZ 
1,0:PAPEB 0:PH 1:CLS 
1120 LOCATE 32,2:PR1KT CHWI24);" H >0E 
ODE D'EMPLOI ■;CHM(24) 
1130 PRINT:PB[I(T:PBINT" Ce Progranm >BB 
e sert a enregistrer la Heteo Jour 
après jour, pour une année" 
1140 PBINT* entière par fichier... >KJ 
1150 PRlkTT:PRI»rr- Le Menu principal >PQ 
conprend 7 Options 

1160 PBINT:PIINT" *;CH«»<24>;* OPTI >DZ 
ON 1 *;CKM(24);" ...SAISIE DES DON 
NEES" 

1170 P1INT:P«1NT" Vous d >IF 
evez entrer successivement" 
1180 PR1MT" . la date de >VN 




l'enreglstreient (JJIIUMA)" 
1190 PEINT" . la tempera >QK 
ture aaii de la journée" 
1200 PRINT" . l'eUt du >AT 
ciel - 5 possibilités au choir" 
1210 P»lliT:P«Hrr Ill-SOLEIL >H) 
• ciel bleu, beau teaps ■> 1 Jour d 
e soleil 1 

1220 PBINT* [21-ECLAIBCIES ■ >XU 
avec ou sans pluie ou neige, peu de 

soleil* 

1230 PIINT" I31-C0UÏEIT = ave >TL 
c ou sans pluie ou neige, pas de so 
leil* 

1240 PIINT* [41-DEMI-ÏOILE = >FG 
peu de nuages, beaucoup de soleil" 
1250 PBIKT 1 [51-BIOUILLAID EP >UF 
AIS = mauvaise visibilité, pas de s 
oleil" 

1260 P8IHT CKB«<7>;:L0CATE 25,25:PB >PR 
IMT CKMI24);" Une touche pour tour 
ner la page ";CHI$I24):CALL IBB06:C 
LS 

1270 PIINT:PIINT" . l'et >MJ 
at du teaps - 5 possibilités au cho 
il" 

1260 PBIhT:PBINT" [ll-PLUVIE >lffl 
UI = pluie continue ou par intermtt 
ances" 

1290 PBINT" [21 NEIGE « teap >UR 
s neigeui" 

1300 PBIKT" (31 -ORAGEUX « or >IA 
âge et pluie 

1310 PBIKT" (41-SEC = teaps >KV 
sec" 

1320 PBIKT* [51-HUHIDE ■ tea >UY 
ps humide* 

1330 PRINT:PIINT" . l'et >KZ 
at du vent - 3 possibilités au cho! 
i" 

1340 PBINTiPBINT" [ll-CALNE >XV 
■ pas de vent* 

1350 PBIKT* [21-FOST = vent >VU 
assez fort* 

1360 PBIKT* I31-VI0LEKT « ve >MF 
nt très fort, tempête" 
1370 P11KT:P81KT" *;CW»<24);* OPTI >LV 
ON 2 *;CHN(24);* ...VISUALISATION 
DU TEMPS" 
1380 PRIKT:PBIKT" Apres >HG 

avoir choisi le jour a visualiser 
I ; la Heteo vous est*:PBIKT* 
I indiquée sous forée de graphiq 



ue. En outre divers renseignements" 

: PBINT" vous sont couu 

niques (saison-teaperature etc)" 

1390 PBIKT CHB*(7);:L0CATE 25,2S:PB >PU 

INT CHB«<24);" Une touche pour tour 

ner la page ";CKB»(24):CALL IBB06:C 

LS 

1400 PBINT:PBINT" ■ i CHM(24);" OPTI >AG 

ON 3 ";CHB«<24) ; " ...DOMINANTES ET 

MOYENNES PAB MOIS' 

1410 PRINT:PIINT* Vous >HG 

renseigne, sous forae de tableau, s 

ur la température moyenne": PRINT" 

pour chaque aois ainsi q 
ue sur le teaps aoyen durant ce* 
1420 PIINT* leK Mis. >UB 
Vous indique également le nombre de 

jours de soleil, *:PBINT" 
de pluie et de neige* 
1430 PBINT:PRINT" *iCHM(24>;* OPTI >KB 
ON 5 *;ChT«<24);" ...CHARGEMENT DES 

DONNEES' 

1440 PBINT:PIIKT* Entre >AC 
z l'année concernée (AAAA) pour le 
chargement des données* 
1450 PBINT:PBINT" ";CKI«(24);" OPTI )LF 
ON 6 ";CHB*(24I;* ...SAUVEGABDE DES 

DONNEES" 

1460 PBINT:PBINT* Entre >AK 
z l'année concernée (AAAA) pour la 
sauvegarde des données" 
1470 PB1NT:PRINT" *;CHM<24>;" OPTI >EH 
ON 7 ";CHB<<24);* ...LISTES LES DON 
NEES" 
1480 PIINT:PIINT* Comme >UP 

son nom l'indique, liste toutes le 
s données a partir* 

1490 PIINT du mois cho >PA 
isi, jusqu'au dernier enregistrées 



■;CHM<24);" OPTI >HP 
...QUITTEILEPBO 



1500 PRINT:PIINT" 
ON ";CHM(24); a 
GBANHE" 

1510 PIINT CHt>(7);:L0CATE 25,2S:PB >PP 
INT CHMI24);" Une touche pour tour 
ner la page *;CHU(24):CALL UN6:C 
LS 

1520 LOCATE 24,2:PIINT CKMI24);" B >FJ 
ENSEiaHOTS CDMPUMEKTAIBES *;CHR 
4(24) 

1530 PtUrTiPtllTsnimT* Un dm l'e >FE 
nregiitremmnt des do w imm a mt, après 
avoir Indique la température": PB IN 
T de la journée ; 13 possibilités 
vous sont données pour saisir le te 
mps de* 



A 



1540 PRIHT" la journée. 1 >IQ 
1550 PKIHT:PRiWT" L'ordinateur se c >»A 
harge de détecter tes erreurs event 
uelles pendant la salsie":PRlNT* (e 
ie«ple : NEIGE avec une température 
de 15 dgrs). 

1560 LOCATE 29,25:PBIMT CKBt<24);" >IJ 
UNE TOUCHE PDUI DEMARRER ";CHR<(24) 
1570 PRIKT CHR«(7>;:CALL IBB06:OS: >GD 
LOCATE 26,11:PBIKT*C H A 8 G E H E 
NT «ETE 0VG0T0 1070 




«r 



Meteo i 



10 '--HETE01-- 

20 ON ERROB GOTO 4110 

30 DM dat«<368),tj(368),ec«<368>,d 

<368>,so»(15) 

40 1***111.1 djrs":nn=0 

50 IKK 0,26:INK 1,11:1* 2,12:INK 3 

• 11 

60 dl»=CHR«<243XCKR»(244):d2»-CHR» 

(245HCHRM246) 

70 so»(l)=CKR»(l60)«CHR«<161HCHR»( 

162) 

60 so»(2>=CHB»(200>tCHR»(201)»CHR«f 

202>tCHR«(203HCHR»(212) 

M so«(3)-CKR«(166UCH8»(16/)*CHR»( 

168HCHR»<169) 

100 so»(4)=CHB»(213)«CHl»(214HCH8» 

(204HCHR»(205)*CHM<206) 

110 so«(5)=CKR«(207)*C»«(208)t™i 

(209HCHI»(210)»CHW<211) 

120 so»<6)=CHR«<170HCHR»(167)*CHR» 

(171)tCH8«(172) 

130 so«<7)=CHR«<173)*CHM(174HCHR* 

(175HCHMI176I 

140 so»<8)=CKR«(177)*CH8»(164>fCHR» 

(199HCHR»<198) 

150 so«<9)=CHBK178HCH8«(179> 

160 sol(10)-CHM(180)H»l(181XCHI 

1(182) 

170 sol<ll)-CW«(183)<OHI(164)«CHt 

•(165) 

160 S0«<12>=CHRK186HCHR»(I87> 

190 so«(13)*CW*(188)*CHM<189)<CHt 

«(1SOHCHWI191) 

200 so»(14)=CHM(192)*CH»»(193)«CH8 

• (t68HCHR»(194HCHR«(!95HCHR»<185 
) 

210 so«<IS>=CHR»<196>»CHR»(197l 



>L» 
>PH 
>PP 

>RR 
>DJ 

>TU 

>FC 

>rr 

>RL 
>DL 
>DR 
>TL 
>TÏ 
>TP 

>XC 

)HH 



>ÏZ 
>UG 



220 ' >RE 

230 'DEMI >RF 

240 ' >BG 

250 SPEED IKK 10,10 >HA 

260 «ODE 2:1NK 0,0:INK 1,13:B01DER >V0 
13:PAPES 1:PEN 0:CL5 
270 WINDCUI1, 15,66,1, 3;PAPEM1,0:PE >D9 
rMl,l:ClSll:LXATEIl,7,2:raiHTlI,"» 

Il METEOROLOGIE l 
I •• 
280 0RIG1N 24,304:DBAU 592,0,0:M!AV >VN 

S92,-112:D8AW 424, U2:DRAW 424,-1 
40:DRAU 160, 140:DBAU 160,-112:DRAII 

0, 112:DBAU 0,0 
290 LOCATE 6,8:PRINT OBî*(24) ;'. 1.' >PL 

;CHR«<24);* SAISIE DES DONN 

EES*:LOCATE 6,10:PtINT CHR«(24>;".2 

.";CHRI<24);" VISUALISE! JO 

UÎNEFVLOCATE 6,12:PRINT CKR«<24);" 

.3.*;CKR»(24);* MOYENNE P 

AB MOIS* 

300 LOCATE 26,14:P!1HT CH8»(24):V0 >ZJ 

.";CHR4<24);* QUI 

TTER" 

310 LOCATE 46,6:P8INT CHR»<24> j*.5. >KD 

■;CHR«(2»);" CHABGEB FICH 

IEBVLOCATE 46,10:P«INT CHR4I24);*. 

6.*;CHR«(24);* SAUVES DO 

NUEES': LOCATE 46,12:PRINT CHB«(24); 

■.7.";CHR»(24)|" 

.LISTE!" 

320 IF MO" THEN LOCATE 30,5:PIIN >UF 
T'ANNEE ";UPPER»(f«);" EN MEMOIRE" 
330 IF n>nn THEN LOCATE 9,22:PR1NT* >II 
...N'OUBLIEZ PAS DE SAUVEGARDER VOS 

NOUVEAU! ENREGISTREMENTS...* 
340 a»=IHKEÏ*:IF a»=" THEN 340 >IW 
350 IF a»=*l* THEN 430 >NQ 

360 IF a»=*2* THEN 1340 >PH 
370 IF a»=*3* THEN 1740 >PU 
380 IF a«=*7* THEN 2230 >PU 
390 IF a<-*5* THEN 2440 >PU 
400 IF a«=*6* THEN 2550 )PQ 
410 IF A»=*0* THEN 4160 >PL 
420 GOTO 340 >YK 

430 ' >RH 

440 'SAISIE )RJ 

450 ' )RK 

460 BORDES 13:CLS >HZ 

470 ORIGIN 196, 386: DRAW 232,0, 0:DR» )ÏG 
V 232,-22:KAII 0,-22:DRAV 0,0:L0CAT 
E 26,2:PRINT CHM(24)i* EKEEGISTREH 
EUT DES DONNEES ';CHM(24) 
480 IF n=0 THEN 490 ELSE ddat»=HID» >FF 



t Cdat*<n>,l,2>t\"*HlD«<dat»<n),3,2) 
i t"."«HD«(dat»<n),5,4):L0CATE 2,4:P 
RINT'Dernier Enre(istreient le *;dd 
at» 

490 n=ntl >EH 

500 LOCATE 2,6:PRINT"Entrez la Date >ZT 

IJJHHAAAA) : •;CHR»(I8);:1NPUT dda 
t»:IF ddat» -" THEN n=n-l:GOT0 220 
510 zq=0:FOR vl=l TO LEN(ddat»):FOR >LV 

«2=0 TO 9 
520 IF VAL(NIW<ddatt,v1,t)l=v2 THE >NN 
N zq=zq*l 

530 NEn:NEIT:IF zq.=8 THEN 540 ELSE >FP 
500 

540 IF LEN(ddatl)<e 01 VALINIMIdd >RR 
at«,l,2))>31 01 VAL(HID»<ddatl,3,2> 
1)12 OU VAL(HID»(ddat«,l,2))<=0 OR 
VAL(MIDI(ddat»,3,2)K=0 OR LENIddat 
• 1)8 THEN GOSUB 127O:G0T0 500 
550 GOSUB 1310 )PG 

560 IF ou!=l THEN oul--0:BORDER 6,13 >LB 
:PRINT CHR«(7);:L0CATE 32,6:PRINT'. 
.JOURNEE DEJA ENREGISTREE..": FOR t* 
1 TO 1500 :NEIT: BORDER 13:GOT0 500 
570 dat»<n)=ddati:RESTORE 3400:F0R >VQ 
s=l TO 12:READ da,da»:IF VAL(MID»(d 
at«(n),3,2))-da THEN datl«=HID«<dat 
Kl), 1,2)** **da»«* **HID«ldat»<n), 
5,4) 

560 NEn >EJ 

590 LOCATE 32,6:PRINT CHR»(16);datl >DT 
» 
600 LOCATE 2,8:PRINT"Teiperature de >KD 

la Journée : *;CHR»(18);:INPUT t 
](n) 

610 IF tj(n)>99 OR t)(n)<-99 THEN 6 >CJ 
00 

620 LOCATE 32,8:PRINT CHRI116) ;USIN >NU 
G i»;t](n> 
630 LOCATE 2, 10:PRINT"EUt du ciel >T0 

: 11). SOLEIL 12) 
.ECLAIRCIES 131. COUVERT": LOCATE 
32,11:PRINT"I4].DEHI-V0ILE [5 
I. BROUILLARD EPAIS* 

640 LOCATE 32,12:P«INT*Votre choii >ZU 
: ";CHR»(18);:INPUT cho:IF cho<l OR 
cho>5 THEN PRINT CH8«(7);:G0T0 640 
650 RESTORE 3370: FOR 3=1 TO 5:READ )CH 
dal«,da«:IF cho=VAL(dal») THEN s=5: 
ecl»=dal 

660 NOT >EH 

670 IF ecl«="VOILE* THEN ecH="DEHI >KC 
-VOILE" 

680 LOCATE 32.10:P8IHT CHR»(20);ecl )DT 
• 
1690 ecl(n)^dal«:dal«--":da=0:dll-" >BL 






700 IF ec$(n>='5" THE» ec«(n)=ec»(n >PT } 

)t'0':G0T0 820 

710 LOCATE 2,12:PllNT , Et»t du Teips >UV 

: [11. PLUVIEUX 
I2I.NE1GEUI 1 3 I.01AGEUI': LOCATE 
36,13:PRIirr- 141. SEC 
151. HUMIDE' 

720 LOCATE 32,14:PllNT , Votre choii >ZU 
: *;CHE»(18);:INPUT cho:IF cho<l OS 

cbo>5 THEN PKIHT CHRX7); :G0T0 720 
730 IF (ect<n)*'l* OU ec»(n)="4') A >FU 
ND cho=l THEN BORDES 6,13:PRINT CHR 
»<7);:L0CATE 20,22:PRINT\ . .CIEL BL 
EU OU VOILE AVEC PLUIE IMPOSSIBLE. . 
.':FOR t=l TO 2800 :NETT: BORDES 13:L 
OCATE 20,22:PRINT CHH»(18):GOT0 72 


740 IF («♦(«)=•!• OR ec«(n)="4') A >FK 
ND cho=2 THEN BORDEI 6,13:PI1NT CHR 
»(7);:L0CATE 20,22:PÏIITr-. . .CIEL BL 
EU OU VOILE AVEC NEIGE IMPOSSIBLE.. 
.*:FOS t=l TO 2800:MErT:BORDEB 13:L 
OCATE 20,22:PRINT CHM(18>:G0T0 72 


750 IF (ec«<nl="l" OR Kt(l>>*«*) A >AJ 
ND cho=3 THEN BORDER 6,I3:PR1HT CHR 
»(7)j:L0CATE 20,22:PRINT*...CIEL BL 
EU OU VOILE ET ORAGE IMPOSSIBLE... 1 
:FOR M TO 2500: NFJT: BORDER 13:L0C 
ATE 20,22:P1INT CHM(18):G0T0 720 
760 IF tj(n)>5 AND cho=2 THEN BORDE >CB 
t 6, 13:PR1HT CHRI (7) ;: LOCATE 20,22: 
PIINT*...NEIGEUI AVEC'îtJInli'DEGRE 
S IMPOSSIBLE...'. -FOR t=l TO 2500:NE 
IT:BORDER 13:L0CATE 20,22:PRINT CHR 
l(18):G0T0 720 

770 IF tjlnX-5 AND (cho=l OR cho=3 >HC 
I THEN BORDER 6,13:PRINT CHR»I7);:L 
OCATE 20,22:PRINT\..PLUVIEUI A »;t 
J(n);- DEGRES IMPOSSIBLE. . .':FOR 1= 
1 TO 2S00:NFJT:B01DE1 13:L0CATE 20, 
22:PRINT CHR»(18):GOT0 720 
780 iESTOIE 3380:F0R 5=1 TO 5:READ >CN 
daH.da»:IF cho=VAL<dal«) THEN 1=5: 
«l«=da« 

790 NEn >FB 

800 LOCATE 32,12:PIINT CHR«(20);ecl >DN 
» 

810 ec»(n)--ec»(r,)*dal«:dal»=":da>- >KC 
":cho=0 
820 LOCATE 2,14:PllNT , Etat du Vent >EG 

: 111. CALME [21 
.FONT 131. VIOLENT* 
830 LOCATE 32,15:PRINT'Votre choil >ZI 
: ';CHH(18);:INPUT cho:IF cho<l OR 

cho>3 THEN PRINT CHM(7);:G0T0 830 



m 



MO RESTORE 3390:F0R s=l TO 3:READ 

dall,da»:IF cho- VAL(daU) THEN l*3l 

ecl»=da« 

850 NFJT 

960 LOCATE 32. U: PRINT CHRI(20);ecl 

< 

870 ec«(n>=ec»(n)*dal»:dalM":d»»= 

":cho=0 

880 GOSUB 990 

890 IF tj(n)(5 AND MID«lec«(n),2,l) 

<>"2' THEN LOCATE 2,16:P8INTSol en 

neige (0/N) :':GOSUB 950 

900 LOCATE 22. 24:PRINT'Conf iriez vn 

us les données (0/N)* 

910 al--IHKET»:IF a«=" THEN 910 

920 IF UPPERtla») -■0" THEN GOTO 220 

930 IF UPPERJIa») •»• THEN dltl(n) ■ 

":tj(n)=0:ec«(n)=":d(n)=0:n=«-l:G 

OTO 220 

940 GOTO 910 

950 a»=IIKET$:IF »«•*" THEN 950 

960 IF UPPER»(a»)='0' THEN d(n)=27: 

LOCATE 32,16:PRINT*S0L ENNEIG£':RET 

URN 

970 IF UPPEM(a»>="N' THEN LOCATE 3 

2,16:PRINTS0L NON ENNEIGEVRETUÏN 

980 GOTO 950 



1000 IF •d(B)**lU" 
■ THEN d(n)=l 
1010 IF ec«(n)='142* 
• OR ec$(n)='152" OC 
HEN d(n)=2 
1020 IF ec»(n)= , 2»l" 
1030 IF «e«i)='2Sl« 
1040 IF ec»<n)="2U" 
1050 IF Ml(ii)- a 221' 
1060 IF ecl(n)='231" 
1070 IF ec«<n>= , 242" 
' THEN d(n)=8 
1080 IF ec»(n)='252' 
' THEN d(n)=9 
1090 IF ec»(n)='212' 
' THEN d(nl = 10 
1100 IF ec»(n)=*222' 
" THEN d(n)=ll 
1110 IF ec»(n)= , 232' 
' THEN d(n)=12 
1120 IF ec«(n)= , 341' 
1130 IF K*(l>' < 3Sl a 
1140 IF ec«(n)="311' 
1150 IF ec»(n)="321' 
1160 IF ec»(n) ^331" 



OR ecl(n)="151 

OR eo»(n).'143 

ertlnl^lSS' T 

THEN d(n)=3 
THEN d(n)=4 
THEN d(n)-5 
THEN d(n>=6 
THEN d(n>=7 
OR ec$(n)='243 



ON ec»(n)=*2S3 >HV 
01 ecl(n)='213 >NB 
01 ec»(n)='223 >ME 
OR ec«(n>='233 



THEN d(n)=13 
THEN d(n>=14 
THEN d(n)-li 
THEN d(n)=16 
THEN d(n)-l I 



>NA 

>ÏI 
)TA 
>ÏT 
>Y8 



>KJ 



à 1170 IF ec«(n>="342' 01 ec»(n)='343 >NT 
' • THEN d(n)=18 

1180 IF ec«(n)='352" OR ec«(n>='353 >NX 

• THEN d(n)=l9 

1190 IF ec4(n)="312' OR ec»(n)=*313 )NF 

' THEN d(n)=20 

1200 IF ec4(n)='322' OR ecl(n)='323 >NA 

' THEN d<n)=21 

1210 IF ec«(n>= , 332" OR ec«(n>="333 >NE 

■ THEN d(n)=22 

1220 IF LEFT«(ecl(n),2)='44" THEN d >FZ 

ln)=23 

1230 IF LEFTt(te*(l),2);*45> THEN d >FC 

(■)•» 

1240 IF LETOIeclInl^^MS" THEN d >FC 

(«1=25 

1250 IF LEntlecXnl.lli'S- THEN d( >FG 

•)«26 

1260 RETU1N >FC 

1270 BORDEI 6, 13: PRINT CHR1(7);:L0C >LB 

ATE 32,6:PRINT" ...EMEUR... , :F 

01 t=l TO 1500: NFJT: BORDES 13 

1280 RETU1N )FE 

1290 BORDER 6,0:PRINT CHR»(7); :LOCA >FC 
TE 21,5:PRINT" ...EMEUR...VFOR 
t=l TO 1500: NFJT: BORDES 
1300 RETURN >EH 

1310 FOR s3=0 TO n-l:IF ddat»=dat«( >ZH 
s3) THEN oui=l:s3=n-l 
1320 NFJT >KH 

1330 RETURN >FA 

1340 ' >TA 

1350 'C0NSULAT10N >ÏB 

1360 ' >YC 

1370 IKK 0,0:INK 1,26: I MK 2,15: INK >AF 
3,15:INK 4,0: INK 5.15: I WK 6,15: I MK 
7,15: INK 8,15:INK 9,15:INK 10, 15: IN 
K 11, 15:lli( 12,15:INK 13,15:INK 14, 
15:INK 15,15 

1380 MODE 1: BORDER 0:PAPER 0:PEN 1: >FZ 
CLS 

1390 IF n=0 THEN LOCATE 5,U:P!IHT" >H? 
...AUCUNE DONNEE EN MEMOIRE.. .VFOR 
W TO 1 500 :NETT: GOTO 220 
1400 sui=0 >PH 

1410 LOCATE 8,1:P1INT11UEL TEMPS FA >TY 
ISAIT-1L ?• 

1420 LOCATE 2,5:PlINmate MJrlUAA >KG 
Al :'!CHM(18);:1NPUT ranl 
1430 IF con«=" THEN 220 >QL 

1440 IF LEN(coa«)<8 01 VALIMIDtlcon >EU 
»,1,2))>31 OR VAL(MIM(con»,3,2))>l 

2 01 VAL(HID»(con»,l,2))<=0 01 VALI 
HID«<conl,3,2>)<=0 01 LEN(con«)>8 T 
HEN GOSUB 1290:G0T0 1420 



>YE I 1450 zq=0:FOR vl=l TO LEN(con«):F01 >LF 



▲ 



v2=0 TO 9 

1460 IF »AL(HID»<con»,vl,l))=v2 THE >HB 
N zq=zq»l 

1470 NEn:NFJT:IF zq-8 THFJ 1480 a >JF 
SE 1420 

1480 LDCATE 12, 12 : PB IMT-. . .UN INSTA >KB 
HT...' 

1490 FOR 3=1 TO n >GB 

1S00 IF datl(s)=con* THEN nl=s:s=n: >AH 
sui--l:INK 0,15: 1 MK 1,1S:H0K 0:BOID 
ER 15:PAPES 11:PEN 4:CLS:L0CATE 4,2 
5:PR1KT'..UN INSTANT.. V0RIG1N 30,2 
08:DIAU 580,0,0:DRAII S80,-194:D8AW 
0,-194:DRAV 0,0:GOTO 1510 ELSE 1530 
1510 01IGIN 164,I4:PL0TR 0,0,4:PL0T >DP 
1 4,0:PU)TI 12,0:PUm 4,0:PL0TB 8, 
0:PLOTi 4,0:PUm 16,0:PL0TB 4,0:PI, 
OTI 46,0:PL0TÏ 4,0:PL0TR 4,0:PL0TR 
4,0:PL0TB 4,0:PL0TI 4,0:PL0T8 8,0:P 
LOTR 4,0:PL0TI 16,0:PL0TB 4,0:PL0TR 
16,0:PLOTB 4,0:PL0TR 4,0:PL0TI 4,0 
1520 PLOTS 16,0:PL0TR 4,0:PLOTR 4,0 )AT 
:PLOTR 4,0:PL0TR 4,0:PL0TR 4,0:PL0T 
1 16.0:PL0TR 4,0:PL0T> 4,0:PL0TB 4, 
0:PLOTI 12,0:PLDTR 4,0:PL0TS 16,0:P 
LOTR 4,0:PL0TR 12,0:PL0TR 4,0:PLOT8 
4,0:PL0TI 4,0:PLOTB 4,0:PL0TI 4,0 
1530 NFJT:IF sui=0 THFJ LDCATE 1,5: >NC 
PEINT CHD«(19);CHt«(18);' !! 
! AUCUNE DONNEE !!!":GOTO 1680 
1540 HIND0VI2,2,19,13,24:PAPEU2,2: >K? 
PENI2.1 

1550 GRAPHICS PAPER llrRESTORE 3400 MIC 
:FOR s=l TO 12:READ da,da«:IF VALIN 
IM(dati(nt),3,2>>=da THFJ GOSVB 17 
20:s=12:TAG:0RIGIN 320- 13, 394: PLOT 
0,0,2:PRIKT LEFTI(diM(il),2)t a '»d 
a»»" ■«R!GHT«(datl(nl>,4);:TAG0FF:l 
3=0 

1560 NETT >LD 

1570 da=O:da«=":REST0RE 3370:F0R s >UH 
=1 TO 5:READ da,da»:lF VAL(LEFT»(ec 
»<nl),l))=da THEH clel»=30»(s) :s=5 
1580 NEIT:IF LEFTt<i«*<il>,l>**5' T >FU 
HEN tM«=so»(10):G0T0 1610 
1590 da=0:da«=":»£STOR£ 33B0:F0R s >IA 
=1 TO 5:READ da,da<:IF VALOIIDSIect 
(nl),2,l))=da THFJ tei»=so«(s»b):s- 
5 

1600 NEIT >KJ 

1610 da=0:da«=":RESTORE 3390:F0R s >QB 
=1 TO 3:READ da,dal:IF VAL(HlD»(ec< 
(nl),3,l))=da THFJ ven»=so«(sMO) 
1620 NEIT >LA 

1630 GOSVB 1670 >IG 

1640 IF «•«••ETE" 01 s»i»=*PRIIITHI >WZ 




PS" THEN GOTO 3410 

1650 IF sal^'AUTOHNE' OS sai*='HIV >IU 
ER* THEN GOTO 3520 

1660 F08 t=l TO 1500:NEn:G0T0 1340 >B0 
1670 IF (HID*(dat*(nl) ,3,2)="12* AN >UA 
D VAL(NlD»(dat»(nl),l,2))>=20) OS H 
IM(dat«(nl),3,2)=«01" OR HIMIdat» 
Ul>,3,2)='02" OR (HlD»(dat1(nl),3, 
2>='03' AND VAL(HIM(dat«(ïil), 1.2)1 
<20) THEN sai$="HIVER':c7=l:16=192: 
GOTO 1710 

1680 IF (HID»<datl(M),3,2)="03" AN >JI 
D »AL(HID»(dat«<lll),l,2)»=20) OR N 
ID»<ctot*(Til> t 3,2)=*0** OR MDlldatt 
(ni 1,3, 2) ='05 ■ OR (HID*(dat*<nl),3, 
2I-06' AND VAL(HID»(datl(nl), 1,2)1 
<21) THEN 5al»= , PRINTQB , S , :c7=5:15= 
128:G0T0 1710 

1690 IF (",ID«(dat«(nl),3,2h"06 m AN >PJ 
D VAL(HID$(dat«(ïil),l,2))>=21) OR N 
ID»<daH(nl>,3,2>='07" OR MDMdat» 
<Til),3,2)=»0B" OR (HlD*(dat)<nl),3, 
2) --"09" AND VAL(IHM(dat$(nl),l,2)) 
<22) THEN sai»= , ETE , :c7=5:15=224:G0 
TO 1710 

1700 sall= , AUT0IINE , :c7=7: 15=160 
1710 BETURN 

1720 l3=LFJ(da»)i32:IF 13=96 THEN I MIC 
3=160 ELSE IF 13=288 THEN 13=272 B. 
SE IF 13=256 THEN 13=256 ELSE IF 13 
=128 THEN 13=192 ELSE IF 13=224 THE 
N 13=240 ELSE 13=200 
1730 RETUBN 
1740 ' 

1750 'HOTENNE 
1760 ' 

1770 DIN tda(12,5),tdal(12,5),tda2( >EH 
12,3), tt](12),ntj(12), sso(12), pl(12 
l,i|<12) 

1780 BORDER 15:N0DE 2:INK 0,0: (KK 1 >JF 
,15:CLS 

1790 LOCATE 21-<LEN<fl)/2),l:PRINT >RS 
CHR«(24);> NOTENNE n DOMINANTE PAS 
HO! S- ANNEE •;(•;■ ■;CHB»(24) 
1800 LOCATE 30,11:PRINT"UN INSTANT >TT 
JE CALCULE* 

1810 FOR s=l TO n:sl=VAL(NIM(dat«( >KB 
s), 3,2)) 

1820 tda(sl,VAL(LEFT«(Kl(l),l)))=0 >PF 
:tdal(sl,«AL(HID«(ecl(s),2,l)))=0:t 
da2<sl,VAL(HIDl<K»<s),3,l)))=0:ttj 
(sl)=0:ntj(sl)=0:sio(9l)=0:pl(sl)=0 

I :nj(sl)=0 

» lf 



>AK 
>FC 



>FE 
>YE 
>YF 
>ÏG 



1830 NEIT 



>LD 



| 1840 FOR s=l TO n >GA 

I 1850 sl=VAL<HID»(dat»(s),3,2» >YJ 
1860 tda(sl,ÏAL(LEFT»(ec«(s),l)))-t >LI 
da<sl,VAL(l£FT»<ec*<s> 1 l)>)tl 
1870 tdal(sl,VAL(HID«(ec»<s),2,l)>> >0H 
■tdal(sl,VAL(HID»(ec»(s),2,l)))»l 
1880 tda2(sl,VAL(HID«(ec«(s),3,l))) MIT 
=tda2(sl,VAL(HI0t(ecl(s),3,l)))«l 
1890 ttj(sl)=UJ(slHt)(s>:iitJ(sl>= >PU 
ntjIslXl 

1900 IF HID4(«l(s),l,l)="I" OR HID >IT 
»(ecl(s),l,l)= , 4" THEN sso(sl)=sso( 
«l)tl 

1910 IF HIM(wMs>,2,1>>*1' 0! Wl >T2 
•(tct(l),2,l)*'3* THEN pl(sl)=pl(sl 

, '« 
1920 IF HmitcHriJ.lUW THEN n >QP 

j(sl)=ng(!l)tl 

1930 NEIT >LE 

1940 FOR sl=l TO 12 >LII 

1950 F08 s=l TO 5:1F tda(sl,OXtda( >LB 

si, s) THEN tda(sl,0)=tda(sl,s) 

1960 NEIT M.H 

1970 FOR s=l TO 5: IF tdaKsl.OXtda >QV 

Ksi, s) THEN tdal(sl,0)=tdal(sl,s) 

1980 NEIT >LK 

1990 FOS s=l TO 3:1F tda2(sl,0Xtda >QA 

2(sl,s) THEN tda2lsl,0)=tda2(sl,s) 

2000 NEIT >KD 

2010 NEIT >KE 

2020 LOCATE 1,3:PBINT CHRI(20):G0SU >HG 

B 4040 

2030 RESTORE 3400:F0R sl=l TO 12:RE MOI 

AD da.dal 

2040 IF tda(sl,0)=0 OR ldal(sl,0)=0 >HP 

OR tda2(sl,0)=0 THEN GOTO 2170 
2050 LOCATE 3,sH6:P81NT dal:L0CATE >W 

15,sH6:PR]NT USlNG'lil.l'iROUKDIt 
tj(da)/ntj(da),l) 
2060 RESTORE 3370:F0R 3=1 TO 5:READ >NQ 

dalO.dalO» 

2070 IF tda(sl,0)=tda(3l,s) THEN LO >AB 
CATE 23,sl«6:PRINT STBINGK13, 128) : 
LOCATE 23.sl*6:P8IHT HIM(dalO«,l,l 
0) 

2080 NEIT >LB 

2090 dalO=0:dalO»=":RESTORE 3380:F >FG 
OR s=l TO 5:READ dalO.dalO» 
2100 IF tdal(sl,0)=tdal(sl,3) THEN >JF 
LOCATE 39.sl»6:P8INT STRING«(8,128) 
:LOCATE 39,sI«6:PRINT dalO» 
2110 NEIT >KF 

2120 dalO=0:dalO»=":RESTORE 3390: F >FZ 
OR s=l TO 3:READ dalO.dalO» 
2130 IF tda2(sl,0)=tda2(sl,s) THEN >HE 
I LOCATE 50,sl«6:PRINT STRING«(8,128) 



A 




:LOCATE 50, s t t6:PEINT dalO» 

2U0 NEIT 

2150 LOCATE 62,jlt6:PBINT USING'ii- 

;sso(sl):LOCATE 69,sl*6:PR[NT USING 

"H";pUsl):LOCATE 76, ll*6: PRI MT US 

ING"ll';nl(ll>; 

2160 BESTOBE 34O0:R» l2=l TO sl:BE 

AD da,da»:ffirr 

2170 NEIT 

2180 tsso=0:tpl=0:tn|=0:FOR s=l TO 

i2:tsso=tsso«SJO<5>:tpl=tp]«pl(s):t 

n|=tn|*n|(i):IEIT 

2190 ttj=0:FOfi 1=1 TO n:tt]-ttj«tj( 

s):NFJT:tt)=tti/n:LOCATE 1S,20:PBIH 

T USING*ltt.l*;BOIM>(tt},l):ttj=0 

2200 LOCATE 23,20:P!IKT*IinUmiI 

n-tLocATE as^iPunraranm-: 

LOCATE 50,20:PRINrnimr:l.0CATE 
61,20:PBIKT USINGMir;tsso:LOCATE 
68,20:PRIKT USINGMMMpI :LOCATE 7 
S,20:PKIHT USIHG*ttf;tng 
2210 ERASE tda,tdal,tda2,ttj,ntj,ss 
o,pl,ng 

2220 PBIHT CHB«<7);:LXATE 31,24:Pfi 
INT'UNE TOUCHE S.V.P.VCAU, IBB06:G 
OTO 220 
2230 ' 

2240 'LISTES 
2250 ■ 

2260 CLS:L0CATE 33,2:PRINT CHB«(24> 
/LISTES ";CHH»<24) 
2270 LOCATE 3,5:PBINT*A partir de q 
uel hols :-;CH8«(lB) ; : 1 NPIU al: IF a 
•=0 OB ai>12 THE* 2270 
2280 LOCATE 1,3:PIIN7 CHH»(20):G0SU 
B 2410 

2290 h=7:F0R s=l TO n: IF VAL(HIM(d 
aU(s),3,2))<u THEN 2390 
2300 h=h*l:lF h=22 THE» PBIMT CHR»< 
7);:L0CATE 15,2S:PBINT*Uiw touche p 
our tourner la page [Bletour Hen 
■•:M8:CALL IBB06:IF IMŒT(50)<>-1 
THEN 220 ELSE LOCATE 1,4:PBIHT CHR» 
(20) :GOSUB 2410 

2310 LOCATE 3,h:PBINT USlNG'llt'is 
2320 LOCATE 8,h:PSINT HlD«(dat»(s>, 
l,2)t'.*«III0lldiU(i),3,2)« a .*<llin 
(dat»(s),5,4>:LOCATE 21,h:PBIKT USI 
NG'tlt.t dlrs-;tj(s) 
2330 BESTOBE 3370:F0B sl=l TO 5:REA 
D dall,da»:IF HID»(ec«(s),l,l>=dal» 
THEN sl=4:LDCATE 35,h:PBINT dal 
2340 KIT 

2350 BESTOBE 3380:F0B «1«1 TO 5:REA 
D dal»,da»:IF HID»(ec»(s),2,l)=dal» 



>BJ 



>CT 



>NP 



THEN sl=5:L0CATE 54,h:PB!NT da» 
2360 NEIT >LC 

2370 BESTOBE 3390:F0R sl=l TO 3:BEA >NB 
D dal», dal: IF IIID«(ec«ls),3,l)=dal» 

THEN sl=3:L0CATE 68,h:PRINT da» 
2380 NEIT >LE 

2390 NEIT >LF 

2400 PBINT CHS» (7);: LOCATE 31,25:PB >HI 

!NT"Une touche S.V.P.VCAU &BB06:G 
OTO 220 

2410 LOCATE 3,6:PBINT'No DATE >EH 
TEnTEBATUBE CIEL 

TEMPS VENT 

2420 OBIGIN 4,328:DBAW 634,0:DBAU 6 >FI 
34, 272:DRAU 0,-272:0RAII 0,0:OBIGIN 

4,296:DBAU 634,0:0BIGIN 48,328:DBA 
VB 0,-272:PL0TB 100,0:DBAW 0,272:P 
LOTB U2,0:DBAVB 0,-272:PL0TB 152,0 
:DBAWB 0,272:PL0TB 112,0:DBAWE 0,-2 
72 

2430 BETUBN >FC 

2440 ' >TC 

2450 'CHABGFJIENT )iD 

2460 ' >TE 

2470 CLS:01IGIN 210,3B6:DBAU 202,0, >7J 
0:DBAH 202,-22:DBAH 0,-22:DBAU 0,0: 
LOCATE 28,2:PBINT CHBK24);* CHARGE 
KENT DES DONNEES ■;CHB«<24> 
2480 LOCATE 2,6:PBINT'Entrez l'Anne >YI 
e (AAAA): ■;CHB«(18);:INPUT f«:IF L 
EN(f»)>4 THEN 2590 

2490 CLS:L0CATE 19,ll:PBlNr C H A >PJ 
BGEHENT EN COURS' 
2500 OPENIN f»t".HET* >PU 

2510 INPUTI9,n:F0B s=l TO n >W 

2520 INPUTt9,dat»(s),tj(s),ec«(s),d >HC 

ii) twn 

2530 CLOSEIN >NA 

2540 nn=n:GOTO 220 >KZ 

2550 ' >TE 

2560 'SAUVEGABDE >ÏF 

2570 ' >TG 

2580 CLS:OBIGIN 210,386:DBAU 202,0, >2W 
0:DBAV 202,-22:DBAW 0,-22:DBAU 0,0: 
LOCATE 28,2:PBINT CKBII24); 1 SAUVEG 
ABDE DES DONNEES •;CKB«(24) 
2590 LOCATE 2,6:PBlHT'Entrez l'Anne >TZ 
e (AAAA): ';CKB«(18);:INPUT f»:IF L 
EN(f»)>4 THEN 2590 

2600CLS:LOCATE 19,U:PBINT S A U >BH 
VEGABDE EN COURS" 
2610 IF f»=" THEN 220 ELSE OPENOUT >KH 
fW'.KT 



2620 HBITEI9,n:F0B s=l TO n >ÏT 

2630 UBITEI9,dat«ls),tj(s>,ec«(s>,d >NZ 
(s):NETT 

2640 CLOSEOUT >ZC 

2650 nn=n:GOTO 220 >NB 

2660 ' >TG 

2670 'DESSINS >TH 

2680 ' > H 

2690 'NUAGE >TK 

2700 OBIGIN i,192:DBAW 4,0,c6:DBAlï >LT 
4,-2:DBAHB 4,-2:DBAVB 12,-2:DBAVB 
10,2:DBAUB 4,0:DBAÏB 12,6:DBAHB 10, 
4:DBAVB 10,2:DBAW 6,-4:DBAW 10,-1 


2710 DBAVB 8,-4:DBANB 6,-4:DRAW 4, >KC 
-6:DBAHB 2,-10:DBAWB -4,-4:DBAUB -6 
,-2:DBAW -4,0:DBAVB -4,-4:DRAVB -6 
,-2:DBAVB -4,0:DBAVB -6,-4:DBAHB -4 
,2:DRAWR -2,2:DBAVB -6,0 
2720 DBAWB -6,2:DBAWB -4,2:DBAWB -4 >FB 
,0:DBAWB -4,4:DBAVB -2,6:DBAW -6,- 
2:DBAVB -6,-2:D8AWB -4,-2:DBAH -6, 
-2:DBA« -6,0:DBAVB -6,2:DBAHB -4,2 
:DBAVB -4,4:DB«UB -4,6:DBA«B -4,6 
2730 DRAW 2,6:DRAWB 2,4:DBAHB 2,4: >LL 
DBAHR2,2 

2740 OBIGIN i»10,160:FILL c6 >VT 

2750 IF cvl=l AND s=l THEN ml=0:GO >JJ 
SUE 3200 

2760 BETUBN >FJ 

2770 'SOLEIL >TJ 

2780 DEG:OBIGIN 564,174:F0B 1=1 TO >JP 
360 STEP 6:PL0T 2O»SIN(l),2OiC0S(i) 
,3:KErr:BAD 

2790 OBIGIN 566,172:FIU 3 >UR 

2800 DEG:FOB 1=1 TO 360 STEP 30:0BI >HT 
GIN 564,174:DBAH 26»SIN( i ) , 26«C0S( i 
l:NFJT:BAD 

2810 BETUBN >FE 

2820 'PLUIE >TE 

2830 cc=13:il=0:yl=0:F0B 1=1 TO 9:i >AG 
1=»1*14:F0B 11=156 TO 72 STEP -14:c 
c=cctl:IF cc=16 THEN cc=14 
2840 yl=(BNDi-18)«l:0BIGIN Hll.Ut >JL 
yl:DRAW -8,-6,cc:NEIT:IŒIT 
2850 BETUBN >FJ 

2860 'HORIZON >YJ 

2870 OBIGIN 32,46:DBA> 574,0,c4:DBA >KA 
V 574,-30:D6AU 0,-30:DBAN 0,0:OBIGI 
N 36,U:FILL c4 

2880 BETUBN >GB 

2890 'ASBBEIETE-PBINTEHPS) >ZB 

2900 PENI2,cl:L0CATEI2,3,B:PRlNTI2, >TC 
CH8I(240):L0CATEI2,3,9:PRINTI2,CHB» 
(241):PENI2,0:LOCATEI2,3,10:PIINTI2 
,CHR»(242):PENI2,cl:L0CATEI2,5,8:Pfi 



A 



IMTt2,CHB$(24O):L0CATEtZ,5,9:PSINTI 

2,CHRS(2«l):PENI2,0:L0CATEt2,5,10:P 

RINTI2,CHBt<2«) 

2910 PENI2,c2:L0CATEI2,10,9:PRINTI2 

,dll:PENI2,12:L0CATEI2,10,10:PRINTI 

2,d2$ 

2920 PEHI2,l:EETUiN 

2930 'FUMEE 

2940 IF d(nl>=6 Ot MnlMl OR dlnl 

) = 16 OB d(nl)=21 THEN c5=0 aSE c5= 

1 

2950 OBIGIN 370,82:DRAy -IO,6,c5:RE 

turn 

2960 'NEIGE 

2970 cc=13:«l=0:yl=0:F0R 1=1 TO 8:i 

l=iltl4:F0B il=156 TO 58 STEP -14:c 

o«cc*l:IF cc=16 THE* cc=14 

2980 yl=(ENDi-12)*l:0BIGIN i-16««l* 

(IBND«6)M),iltyl:PL0T 0,0,cc:HFJT: 

KEIT 

2990 BETUBN 

3000 'ORAGF 

3010 il=24:F0fi i=l TO 2:il=il»32:0B 

GIN Hil,178:DBAIIB -22, 24,1:DRAWR 

30,16:DBAWR -18,-24:NEIT 
3020 l=450:G0SUB 2820 
3030 BETURN 

3040 'ARBREIH1VER AUTOMNE) 
3050 PENI2,cl:L0CATEI2,3,8:PRINTI2, 
CHBI(247):U)CATEI2,3,9:PBINTI2,CHBt 
(248):PEHI2,0:L0CATEI2,3,10:PBIKTI2 
,CHR»(242):PENI2,cl:L0CATEI2,5,8:PR 
INTI2,CKR«(247):L0CATEI2,5,9:PR!NTI 
2.CHB«(248):PENI2,0:LOCATEI2,S,10:P 
BIIITI2,CHB*(242) 
3060 BETUBN 
3070 'THEOU 

3080 OBIGIN 76,294:DRAUI 0,hl,9:PLO 
TI 6,0:DRAWt 0,-hl 
3090 BETUBN 
3100 'VEUT 

3110 OBIGIN 596,272:DBAÏfi 0,64,0:DB 
AH -96, 8:PL0TB 0,-«:DBAVB 96, -H:P 
LOT» -20,2:DRAW 0,16:PL0TB -20,-2: 
OUVB 0,-12:PL0TI -20,2:DBAWi 0,8:P 
LOTI -20,-2:DUUI 0,-4:PL0Tfi -20,2 
3120 OBIGIN 592,328:FILL 9:0BIGIN 5 
72,32S:FILL 1:0BIG1N 552,328:FILL 9 
:OBIGII 532,328:FILL 1:0RIGIN 512,3 
28:FILL 9 
3130 BETUBN 

3140 OBIGIN 596,272:DBAW 0,64,0:DB 
Alffi -16,-8;DRAW -40,-40:DRAIIR 0,-6 
:DRAWfi 40,22:HAUI 16,10:PL0TR -10, 
-5:0RABI -4,18:PL0Tfi -12, -S:DBAIIB 4 
,-18:PL0Tfi -12,-8:DRAW -4,10:PL0TB 




-12,-B:DfiAIIB 2,-10 
3150 OBIGIN 592,31*: Fia 9:0BIGIN 5 >KT 
78,312:FILL 1 : OR I G I H 566,3O0:FILL 9 
:OBIGIN 554,296:FILL 1:0BIGIN 544,2 
86:FILL 9 

3160 BETUBN >FD 

3170 OBIGIN 596,272:DBAUB 0,64, 0:DB >AK 
AUB -20,-8:DBAUB -8,-50:DRAVR 10,0: 
DfiAWR 10,36:DRAVR 10,0:PL0TB -10,0: 
DRAW» -8,18:PL0TB -6,-16:DRAIIR 12,- 
12:PL0TB -6,-10:DBAUfi -8,8:PL0Tfi -6 
,-12:DBAYR 10,-4 

3180 OBIGIN 594,318:FILL 9:0RIGIN S >KH 
84,312:FILL 1 : OR I G I N 582,308:FILL 9 
:0BIGIN 582,292:FIU. 1:0RIGIN 578,2 
84:Fia 9 

3190 BETUBfl )FG 

3200 'COUVERT >IH 

3210 OBIGIN 32,206:DBAV 574,0,0:DBA >LH 
U 574,-38:DBAU 0,-38:DBAU 0,0:OBIGI 
N 36,204:FILL 

3220 BETURN >FA 

3230 'FLEUBS >ÏA 

3240 ^Oiyl^FOJ s=l TO 34:il=(BN >NI 
Di30)*l;yl = <BNDi22Hl:0BlGIN 96tll, 
68«yl:PL0TB 0,0,10:NErr:FOB s=l TO 
34:il=(BNDt30Hl:yl=<BM>i22)«l:0RIG 
IN 160*il,68»yl:PL0TB 0,0,10:NFJT 
3250 RETUÏN >FD 

3260 'FEUILLES >ÏD 

3270 il=0:yl=0:FOB s=l TO 14:«1=<RN >RT 
Di36Hl:yl = (RMH10l*l:0BIGIN 32+» 1 , 
3B4yl:PL0Tt 0,0,S:il = (RNDi36>U:yl-- 
IRND«10)H:0RIGIN 156«ll,38«yl:PL0T 
B 0,0,9:NEn 

3280 BETUBN >FG 

3290 'VOILE )YG 

3300 OBIGIN i,192:DUW 4,0,c8:DBAUB >HB 
4, 2: DBAUB 4,-2:DUUB 12,-2:DBAUR 
10,2:D8AWB 4,0:DBAW 12,6:DRAU8 10, 
4:DBAUI 10,2:DBAUB 6,-4:DBAUB 10,-1 
0:DRAUB 8,-4:NAVB 6,-4:DBAW -4,0: 
DRAUR -4,-4 

3310 DRAW -90,0:DEA«Ï -6,4:DRAKR 
4,4:DBAUR 4,»:DRAVB 6,4 
3320 OBIGIN l»6,186:FILL 13:RETURN 
3330 'BROUILLARD 
3340 y=2OB:F0B s=l TO 18:y=y-((RNDi >PK 
14)t|):l=-22:F0B al=l TO B:i=iM58* 
<RND»20)tl):0BIGIN l,y:DRAU 50,2,13 
:NEKT:NErr 

3350 RETUBN >FE 

« 3360 'DATAS >TE 



>cu 



>cu 

>YB 



♦ 3370 DATA 1,S0LE1L,2,ECUIBC1ES,3,C >KU 
1 0UVÏBT,4, ■DEMI-VOILE", 5,"BR0UILLARD 

EPAIS' 

3380 DATA 1.PLUV1EUI, 2, NEIGEUX, 3,0R >EV 
AGEUI,4,SEC,5, HUMIDE 
3390 DATA 1, CALME, 2, FORT, 3, VIOLENT >DH 
3400 DATA 1, JANVIER, 2, FEVRIER, 3, MAR >PH 
S,4,AVBIL,5,MAI,6,JUIN,7,JUILLET,8, 
A0UT.9, SEPTEMBRE, 10. OCTORBE, 11, NOVE 
HBRE, 12, DECEMBRE 

3410 'COULEURS >ÏA 

3420 IF d(nl)=27 THEN pr=27:nlO=n:n >FV 
-nl:GOSUB 990:n=nl0:nl0=0 
3430 IF (dlnl)>0 AND dlnl)<6) OB (d >JF 
(nl»6 AND d(nll<ll) OR d(nl)--|2 TH 
EN cl=5:c2=7:c4=S 

3440 IF d(nl)<5 OB d(nl)=8 OB dlnl 1 >«D 
=9 THEN c6=2 ELSE c6=0 
3450 IF (d(nl)>!2 AND d<nl)<16) OB >NB 
ldlnl)>16 AND d(nl)<21) OB d(nll=22 

THEN cl=5:c2=7:c4=5 

3460 IF (d(nll<13 OR dlnl ) = 23 OR d( >NZ 
nl>=24 OR d(nl)=25) THEN c3=6:cl=5: 
c2=7:c4=5 ELSE c3=2:cl=5:c2=7:c4=5 
3470 IF d(nl)=6 OB d(nl)=U OR dlnl >NA 
1=16 OB d(nl>=21 THEN cl=l:c2=l:c4= 
1 

3480 IF d(nll=23 OB dlnl) 24 OB d(n >QE 
11=25 THEN c8=I3 

3490 IF dlnl)=26 THEN c3=2 >TA 

3500 IF pr=27 THEN cl=l:c2=l:c4=l >ZV 
3510 GOTO 3630 >IU 

3520 'COULEUR >TC 

3530 IF d(ni>=27 THEN pr=27:nl0=n:n >FI 
=nl:GOSUB 990:n=nl0:nl0=0 
l 3540 IF (dlnll)O AND dlnll<6) OR (d >JK 
lnl)>6 AND d(nlXll) OB dlnl) -12 TH 
EN cl=7:c2=7:c4=5 

3550 IF d(nl)<5 OB d<nl 1=8 OR dlnl) >UF 
=9 THEN c6=2 ELSE c6=0 
3560 IF ld(nl)>12 AND d(nl)<16) OB >NF 
IdlnlDlB AND d(nl)<21) OB d(nl)=22 

THEN cl=7:c2=7:c4=5 

3670 IF (d(nl)<13 OB d(nl)=23 01 d( >NF 
nl)=24 OB d(nl)=25) THEN c3=6:cl=7: 
c2=7:c4=5 ELSE c3=2:cl=7:c2=7:c4=5 
3580 IF d(nl)=6 OB d(nl)=ll OB dlnl >NC 
)=16 OB d(nl)=21 THEN cl=l:c2=l:c4= 
1 

3590 IF d(nl>=23 OB d(nl)=24 OB dln >QG 
1) =25 THEN cB=13 

3800 IF dlnl) 26 THEN c3=2 >n 
3610 IF pr=27 THEN cl=l:c2=l:c4=l >ZI 
3620 GOTO 3630 >NA 

3630 'VISUALISATION VF 

I 3640 SPEED INK 5,5 >LT 



▲ 



3850 VIND0UI3,2,19,3,B:PAPERI3,13:P >ZA 
FJB3,1:CLSI3:0RIGIN 30.368:DRAV 580 
,0,0:DRAN 5B0,-9B:DRAU 0,-98:DRAW 
.0 

3660 PAPE8l2,c3:CLSI2:PENI3 t 0:GRAPH >HQ 
ICS PAPER 13:TAGI3:0RIGIN 36,364:PL 
OT 0,0,0:PRlNTI3,so«U4);:0RlGIN 49 
6,364:PL0T 0,0,0:PBiNT*3,so*(15) ; :T 
AG0FFI3 

3670 L0CATEt3,15,4:PR[MTI3,ven«:PEN >FI 
I3,1:L0CATEI3,2,3:PR1NTI3,CKR*<249I 
:U)CATEI3,2,4:PR1NTI3,CHR»<251>:L0C 
ATEI3.?,5:PRINTI3,CHR»(250) 
3680 ORIGIN 218,272:DRAIffi 0,96:PLOT >ÏL 
R 230,0:DRA¥R 0,-96 

3690 GRAPHICS PAPES 13:PENI3,0:TAGI >AU 
3:ÛRIGIN 256,356:PL0T 0,0,0:PRIKTI3 
, , THtPS";:TAG0FFI3:L0CATEI3,B,3:PRl 
NTI3,ciel»:L0CATEI3,B,4:PRINTI3,tei 
* 

3700 IF tj(nl)<=0 THEN h=5:PENI3,9 >JJ 
ELSE IF (tj(nl)>0 AND tj(nl)<15) TH 
EN h=4:PHI3,l ELSE h=3:PENI3,5 
3710 LOCATEI3,3,h:PRINTI3,USING'lll >RU 
■ ;tj(nl):h=0 

3720 IF tj(nl)<-4 THEN hl=8 ELSE IF >m 
(tj(nl)>-3 AND tj(nl><=0) THEN hl= 
10 ELSE IF tjlnl)>24 THEN M=34 EL 
SE hl=10HNTUj(nl)> 
3730 GOSUB 3080 >XG 

3740 GRAPHICS PAPER 11:TAG:F0R s=l >QA 
TO LEN(sail):ORIGIN (si64t|5)-(LEN( 
sai»)l32/2>,248:PL0T 0,0,c7:PRINT H 
ID4(sai«,s,l)»' ";:NEIT:TAGOFF:GRAP 

HICS PEN 0,0 

3750 GOSUB 2860: IF salM'ETE" OR sa >XF 
i» "PR1NTEHPS" THEN GOSUB 2890 ELSE 
GOSUB 3040:G0SUB 2910 

3760 IF saU^PRINTEHPS" THEN GOSUB >HA 
3230 

3770 IF c4=l THEN 3780 ELSE IF sai* >DN 
■AUTOHHE" THEN GOSUB 3260 

3780 IF BlGHT*(ecl(nl),l)= a l' THEN >RI 

GOSUB 3170 ELSE IF RIGHT$(ec«(nl),l 

)="2" THEN GOSUB 3140 ELSE GOSUB 31 

00 

3790 IF tJInlKl? THEN GOSUB 2930 >ZK 

3800 IF d( ni 1=26 THEN GOSUB 3330:G0 >HW 

TO 3970 

3810 IF d(nl)=l 01 d<nl>=2 THEN GOS >GN 

UB 2770 

3820 IF d(nl)=3 OR d(nl)M THEN GOS >MP 

UB 277O:i=-BO:F0R s=l TO 4:i=i*140: 

GOSUB 2690:NEIT 

3830 IF d(nl)=5 THEN GOSUB 2770:i=- >TF I 

80:FOR s=l TO 4:i=nl40:G0SUB 2690: ? 




NFJT:i=450:G0SUB 2820 

3840 IF dlnl)=6 THEN GOSUB 2770:i=- >ïl 

80:F0R s=l TO 4:i=i*140:G0SUB 2690: 

NFJT: 1=460: GOSUB 2960 

3850 IF d(nl>=7 THFJ GOSUB 2770:i=- >NR 

80:F0R s=l TO 4:i=i*140:GOSUB 2690: 

NFJT:GOSUB 3000 

3860 IF d(nl)=8 OR d(nl)=9 THEN GOS >HE 

UB 2770:i=-80:F0R s=l TO 4:i=«*140: 

GOSUB 2690:NEJT 

3870 IF d(nl>=10 THEN GOSUB 2770:1= >Z0. 

-80:F0R s=l TO 4:i=iH40:G0SUB 2690 

:NFJT:i=45O:G0SUB 2820 

3880 IF d(nl)=ll THEN GOSUB 2770:»= >ZB 

-80:F0R s=l TO 4:i=i»140:G0SUB 2690 

:NEXT:i -480:GOSUB 2960 

3890 IF d(nl>=!2 THEN GOSUB 2770:i= >PV 

-80:F0R s=l TO 4:i=nl40:G0SUB 2690 

:NEXT:GOSUB 3000 

3900 IF d(nl)=13 OR d(nl) = 14 OR d(n >ZA 

11=18 OR d(nl)=19 THEN cvl=l:i=-60: 

FOR s=l TO 5:i=nllO:GOSUB 2690:NEI 

T:i=0 

3910 IF dlnl)=15 OR d(nl)=20 THEN c >GP 

vl=l:i=-60:F0R s=l TO 5:i=i«UO:G0S 

UB 2690:«=i-10:GOSUB 2820:i=iH0:NE 

IT:»=0 

3920 IF d(?ll)=16 THEN cvl=l:«=-60:F >P« 

OR s=l TO 5:i=nllO:G0SUB 2690:G0SU 

B 2960: NET: i=0 

3930 IF d(nl)=17 THEN cvl=l:i=-60:F >HP 

OR s=l TO 5:j=HllO:GOSUB 2690:NEXT 

: GOSUB 3000 

3940 IF d(nl)=21 THEN cvl=l:i=-60:F >PU 

01 s=l TO 5:>=i«110:G0SUB 2690:G0SU 

B 2960:NEIT:«=0 

3950 IF d(nl)=22 THEN c«l=l:i=-60:F >PA 

OR s=l TO 5:i=i*U0:G0SUB 2690:NEXT 

:GOSUB 3000:i-0 

3960 IF d(nl)=23 OR d(nl)=24 OR d(n >AL 

11=25 THEN GOSUB 2770:i=0:F0R s=l T 

3:i=i*160:G0SUB 3300:NEIT:IF LEFT 

»lec«(nl),2)='43" THEN GOSUB 3000 

3970 PEN 1,1:L0CATE 1,25:PRINT CHR» >GH 

(18):PEN 1,0:INK 0,0: INK 1,26:INK 2 

,1:IW 3,24:IIK 4,0:INK 5,9:INK 6,1 

1:INK 7,3: INK 8. 23: INK 9,6: INK 10,1 

6: INK 11, 15: INK 12,20: INK 13,13:0RI 

GIN 32,16:DRAV 572,0,0 

3980 IF c3=2 THEN ccl=l ELSE ccl=ll >AG 

3990 IF MD*(ec*(nl),2,l)='l* OR NI >QG 

D»<ec»(nl),2,l)='3' THEN cc3=0 ELSE 

IF HID«(ec«(nl>,2,l>='2' THEN cc3= 



) 26 

4000 INK 14,ccl,cc3:INK 15,cc3,ccl >AK 
4010 IF HIDt<ec*(nl),l,lX>*B' THEN >LH 
GOSUB 2910 

4020 IF pr=27 THEN d(nl)=27:pr=0 >ZC 
4030 CAU UB06:SPEED INK 10,10:GOT >FT 
220 

4040 'TABLEAU >YA 

4050 GRAPHICS PAPER 1:0RIGIN 25,344 >ZP 
:TAG:PLOT 0,0,0:PRINT'H I S";:PLO 
TS 24,8:PRINT , TEHPER.";:PL0TR -56,- 
16:PRINT'H0TENNE';:PL0T1 32,8:PRINT 
■ETAT CIEL"; 

4060 PLOTR 32,0:PRINT"ETAT TEMPS";: >LN 
PLOTR 28,0:PR1NT"VENT';:PL0TH 44,8: 
PRINT'NOHBRE DE JOURS'; :PLOTR -136, 
-16:PBINT'S0LEIL PLUIE NEIGE'; :TA 
GOFF 

4070 ORIGIN 8,360:DRA« 626,0:DRAU 6 >UV 
26,-2B8:DRAU 0, 288: DRAW 0,0:ORIGIN 
8,312:DRAV 626,0:0RIGIN 8,104:DRAU 
626,O:0RIGIN 8,72:DRAV 626,0 
4080 ORIGIN 96,72:D8AV 0,288:0RIGIN >UH 

168, 72:DRAU 0,288:0RIGIN 288,72:DR 
AU 0,288:0RIGIN 384,72:DRAV 0,288:0 
IIGIN 456,72:DRAU 0,288:0RIGIN 520, 
72:DRAV 0,264:0RIGIN 576,72:DRAU 0, 
276 

4090 LOCATE 3,20:PRINT'ANNEE" >ÏR 

4100 RETURN >EJ 

4110 • >u 

4120 'TRAITEHENT ERREURS >XK 

♦130 ' >YA 

4140 IF ERL=2500 THEN CLS:LOCATE 28 >WD 
,11:PR1NT'... FICHIER INEXISTANT...' 
:FOR t=l TO 1500 :NEIT: RESUHE 2470 
4150 IF ERR=U THEN RESUHE NEn >ZZ 
4160 IF <ERR=13 AND ERL=520) OR (ER >QJ 
R=13 AND ESL=1460) THEN RESUHE NEIT 
4170 CLS:PRINT'Erreur No ";ERR;' Ll >ÏR 
GNE ';ERL:END 

4180 ' >YF 

4190 CLS:IF nn<n THEN LOCATE 10,11: >GN 
PRINT'... ATTENTION VOUS AVEZ EFFECT 
UE DE NOUVEAU ENREGISTREMENTS. . .":L 
OCATE 25,13:PRINT'VOULEZV0US LES S 
AUVFGARDER 0/N':GOTO 4200 ELSE 4220 
4200 a«=IMŒT«: IF a«=" THEN 4200 >ÏF 



4210 IF UPPER«(al)='0' THEN 220 ELS >FX 
E 4250 

4220 CLS:LOCATE 25,11:P8INT*C0NFIRH >CL 
ATION QUITTER 0/N' 

4230 a«=INKET«: IF a$=" THEN 4230 >ZD 
4240 IF UPPER»(a»)='0" THEN 4250 EL >FT 
SE 220 
S 4250 CAU >NGA 



A 



EDUCATIF 



>10 ' >LA 

20 GOSUB lMr'prfsentation >JD 

30- >u: 

40 GOSUB 5a0:'lnltiallutlans >JJ 

M- >LE 

60 GOSUB IHO:'ii(placMents >QF 

70' >W 

80 GOSUB 1360:'col lision bord >RB 

90' >U 

100 GOSUB 1430:'caniiib»lisie >ID 

110 ' >«C 

120 GOSUB 1520:'rencantre noibre >IF 

130' >K 

140' MF 

ISO l£W»ti««ti""ttmin MA 

160 RDI»» prlienUtton «•• )UC 

170 KUmmiiiHHiHioi MC 

180' >K 

190 H0DE 1 >HJ 

200 IMC 0,9:BOB0FJ 9:INK 1,16:INC 3 >UE 
,U:PAPEB 0:Pffl 1 

210 a»=CHB»<22)tCHB«(l)»CHfil(208MC >PK 
M»(8)«CHU(222)«CHM(22)«»«(0) 

220 b»-CHl»(22)»CHI»(l)*C«»(213)»C >PJ 
Ht»(BHCHB«(223)»(MH(22)tCHR«(0) 

230 c=0 >IK 

240 FM 1=1 T0 8 MA 

250 rewr ■; MA 

260 FM J=l T0 36 >CK 

270 BEAD a: IF a=6 THEN PBINT al; EL >FH 
SE IF a=3 THEN P8IKT M; ELSE PBINT 
CHM(203«a); 

280 KEn >EF 

290 PEINT >PD 

300 MOT >DJ 

310 LOCATE 23,9:PEINT CHB»(22)*CHJ« >UK 
(1)»CHB«(213)»CHR»(215HCHB»<8HCHB 
»(221)»CHBI(223)»CHM(22)»CHB»[0) 
320 c=c*!:L0CATE 1,16:1F c=l THEN 2 >CK 
40 

330 IMC 2,25,8:PEN 2:UKATE 6,12:PI >U8 
INT"«» APPUIE SM UNE TOUCHE •«' 
340 CLEAB IW>UT:CALL UB06 MV 

350 DATA -171,1,5,5,5,2, -171,1,5,5, >DH 



Croque 



Henri CHAUVET 

Ce jeu est destiné aux élèves du 
niveau du cours préparatoire . 

Il s'agit de croquer des nombres 
de 2 chiffres suivant un ordre 
croissant de grandeur. En cas 

d' erreur, le programme se 
charge de tout rectifier. Je ne 

pense pas que les champions du 
jeu d'arcade seront comblés. 

En revanche, pour un enfant de 

6 ans obligé de contrôler les 

déplacements de sa petite bête 

tout en recherchant la victime 

suivante des yeux, le 

plaisir est assuré. 

o 

5,2,-171,1,5,5,5,2,-171,1,5,5,5,2,1 

,6,-171,-171,1,6,1,5,5,5,5,6 

360 DATA 11,-60,-60,-60,12,19,11,-6 >ZB 

0,-60,-60,12,19,11,-60,-60,-60,12,1 

9,11,-60,-60,-60,12,19,-60,4,-171,- 

171,-60,4,-60,-60,-60,-60,-60,17 

370 DATA -60,4,-171,-171,-60,17,-60 >(B 

,4,-171,-171,-60,4,-60,4,-171,-171, 

-60,4,-60,4,-171,-171,-60,4,-60,4,- 

171,171,-60,4,-60,4,-171,-171,-171 

,-171 

380 DATA -60,4,-171,-171,-171,-171, >KJ 

-60,4,-171,-171,-60,17,-60,4,-171,- 

171,-60,4,-60,4,-171,-171,-60,4, -60 

,4,-171,-171,-60,4,-60,17,5,6,-171, 

-171 

390 DATA -60,4,-171,-171,-171,-171, MP 

-60,-60,-60,-60,9,2,-60,4,-171,-171 

,-60,4,-60,4,-171,-171,-60,4,-60,4, 

-171,-171,-60,4,-60,-60,-60,17,-171 

i-171 

400 DATA -60,4,-171,-171,1,6,-60,4, >EF 

-171,10,12,19,-60,4,-171,-171,-60,4 

,-60,4,-171,-171,-60,4,-60,4,-171,- 

171,-60,4,-60,4,-171,-171,-171,-171 




410 DATA -60,4,5,5,-60,17,-60,4,-17 >JP 

1,-171,-60,4,-60,17,5,5,-60,17,-60, 

17,5, 5, -60, 17, -60, 17, 5, 5, -60, 17, -60 

,17,5,5,5,6 

420 DATA 10,-60,-60,-60,9,-171,-60, >LV 

17,-171,-171,-60,17,10,-60,-60,-60, 

9,-171,10,-60,-60,-60,9,171,10,-60 

,-60,-60,9,-171,-60,-60,-60,-60,-60 

,17 

430 BEN >UD 

440 DATA 1,6,-171,-171,1,6,-171,1,5 >HH 

,5,5,2,1,6,-171,-171,1,6,-171,1,5,5 

,5,2,-171,1,5,5,5,2,1,5,5,5,5,6 

450 DATA -60,17,2,-171,-60,4,11,-60 >ND 

, -60, -60, 12, 19, -60, 17,2, 1, -60,4, 11, 

-60,-60,-60,12,19,11,-60,-60,-60,12 

,19,-60,-60,-60,-60,-60,17 

460 DATA -60,12,-171,2,-60,4,-60,4, >GH 

-171,-171,-60,4,-60,12,-171,-171,-6 

0,4,-60,4,-171,10,-60,4,-60,4,-171, 

-171,-60,4,-60,4,-171,-171,-171,-17 

1 

470 DATA -60,-60,12,-171,-60,4,-60, >DQ 

4,-171,-171,-60,4,-60,-60,12,11,-60 

,4,-60,4,-171,-171,-60,17,-60,4,-17 

1,-171,-60,17,-60,17,5,6,-171,-171 

480 DATA -60,3,-60,12,-60,4,-60,4,- >TA 

171,-171,-60,4,-60,3,-60,-60,-60,4, 

-60,-60,-60,-60,9,2,-60,-60,-60,-60 

,9,2,-60,-60,-60,17,-171,-171 

490 DATA-60,4,10, -60, -60,4, -60,4,-1 >NG 

71,-171,-60,4,-60,4,10,9,-60,4,-60, 

4,-171,10,12,19,-60,4,-171,10,12,19 

,-60,4,-171,-171,-171,-171 

500 DATA -60,4,-171,10,-60,4,-60,4, >TE 

5,5,-60,17,-60,4,-171,-171,-60,4,-6 

0, 17,5,5,-60,4, -50,4, -171,-171,-60, 

4,-60,17,5,5,5,6 

510 DATA -60,17,-171,-171,-60,17,10 >Œ 

,-60,-60,-60,9,-171,-60,17,-171,-17 

1,-60,17,-60,-60,-60,-60,-60,17,-60 

, 17,-171, -171 , -60, 17, -60, -60, -60, -6 

0,-60,17 

520 BETUW >ZC 
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530 ' >fij 

540 BEHiiiiiimiititiMiiiiii >vj 

550 REflm initialisations ••• >ÏF 

560 BEHiiHlilllimmilimi >VL 

570 • >TC 

580 KET 138,'speed key 30,2'»CHS»(1 >GZ 
3) 

590 SPEED KET 5,2 >LK 

600 EHV 1,15,-1,4 >DD 

610 MODE 1 >HF 

620 IF PEEK(IAOOO)=0 THE» 680 >VU 

630 PEU 1:L0CATE 6,10:PBINTVe suis >TD 

une (entllle chenille.* 
640 LOCATE 12,12:PBIHT'Aide-lol • c >KD 
roquer*:PBlNT* les mnbres qui s 
eront I l'Icran' 
650 LOCATE U,16:PBIHT'Hais je t'en >HP 

supplie, ":PEM 3:LOCATE 12,18:PBIHT 
'...DANS L'OBME...' 
660 PEU 2:LDCATE 6,25:PBIHT"lll APP >NT 
DIE SUR UNE TOUCHE mVCLEAB INPUT 
:CALL*BB06 

670 CLS >UH 

680 IHK 2,23 >VF 

690 DEFIHT a-z >D 

700 DIH nh(10U,yh(26) )PJ 

710 SYHBOL AFTEB 64 >HL 

720 STHBOL 64,48,24,120,12,124,204, >DF 
118 

730 STHBOL 123,12,24,60,102,126,96, >CU 
60 

740 STHBOL 248,124,230,255,31,15,15 >KL 
9,254,124 

750 STHBOL 249,124,230,255,255,31,2 >U 
55,254,124 

760 STHBOL 250,62,103,255,248,240,2 >KQ 
48,127,62 

770 STHBOL 251,62,103,255,255,248,2 >KI 
55,127,62 

780 STHBOL 252,98,227,227,183,191,2 >KJ 
55,126,60 

790 STHBOL 253,118,247,247,191,191, )LZ 
255,126,60 

800 STHBOL 254,60,126,255,253,237,1 >KJ 
99,199,70 

810 STHBOL 255,60,126,255,253,253,2 >LK 
39,239,110 

820 q=9:'noabre de aots • classer >TD 
830 ziai=30:iplus=4:'les valeurs 38 >QM 
et 2 coipliquent le jeu en collant 
parfois les noabres aui bords drol 
t ou fauche 

840 INC 3,10 >VA 

850 «l"DOWIl,l,40,l,2:lllHD0tll2,l,40 >QF 
,3,23:WimOUI3,l,40,24,25:PAPEill,3 
:PAPEBl2,0:PAPEBI3,3:PEHIl,0:B0BDEB 




10:CLSI1:CLSI2:CLSI3 
860 PEHI2.1 >TF 

870 FOB i=l TO 40:L0CATEI2,i,l:PBIH >IG 
TI2,CHB«(207);:L0CATEt2,i,21:PBINTI 
2,CHB»(207);:NErr 

880 FOB 14 TO 20:L0CATE12,l,i:PBIH )IH 
TI2,CHB»(207) ; :L0CATEI2,40, 1 :PBIHTI 
2,CHH»(207);:HFJT 

890 PENI2.2 >TK 

900 FOB 1=1 TO 10 >CB 

910 l(i)=ll29:y(i>=2 >NG 

920 a«(i)=CHB»(231):a»(l)--CHR»(248) >UF 
:a«(10)=KM$(32):'L0CATEI2,15,2:Pll 
NTI2,a»(i>; 

930 L0CATEI2,i(i),y(i):PBIHTI2,a»(i >EK 
I 

940 HEIT >EJ 

950 PEHI2.1 >TF 

960 FOB i=10 TO 99:nh(l>=i:HEIT >ZD 
970 FOB ii=3 TO 20:yh(fl)=ii:HEIT > BQ 
980 FOB j=l TO q >ZH 

990 b--J»BHDK101- J) >NJ 

1000 IF nh(b)=0 THEH 990 >QH 
1010 bb=j»(26-j)KEHDll) >BZ 

1020 IF yh(bb>=0 THEH 1010 >TU 
1030 ih=lHT<BHDi«iai>tiplus:1.0CATEI >FE 
2,ih,yh(bb):PBINTI2,HID*(STB$<nh<b) 
1,2) 

1040 yh(bb)--yh(j):nb(b)-nh(j) >XH 
1050 KEIT >KH 

1060 PEHI2.2 >TJ 

1070 CLEAE INPUT >LL 

1080 BETUBH >FC 

1090 ' >TC 

1100 BEHfffiilfifllfltitftiii >TU 
1110 BEHlll dlplaceaents "• >IK 
1120 BEHiiiiiiiiiiiiiiiiiiii >TV 
1130 • >IH 

1140 k»=IHKEVi:IF M=" AHD i=0 AM) >HA 
y=0 THEH 1140 

1150 IF k»=CHB«(243) THEH i=l:y=0:a >HB 
(11=250 

1160 IF k«=CHfi«<242> THEH i=-l:y=0: >JU 
a(l>=248 

1170 IF k»=CHM(241) THEH l=0:y=l:a >HF 
(11=254 

1180 IF k«=CHB«(240l THEH i=0:y--l: >JQ 
ad 1=252 

1190 IF k»=V THEH EHD >QG 
1200 z=(z»l) HOD 2 >LU 

1210 IF l(l>»i=l OB i(1Hi=40 OB y( >HL 
l)«y=l OB y(l)*y=21 THEH GOSUB 1360 
1220 L0CATEI2,i(l)H,y(l)iy:cl=C0PT >EZ 



>fil 
>Vfi 
>KK 
>¥T 
>HV 



>LH 
>IH 
>VL 
>IH 

>w 

>ÏB 
>TV 



>ÏE 
>TF 
>W1 
>TT 

>n 



CHfii(l2):IF c«<>" • OB ch=l THEH IF 
c» CH8K231) THEH GOSUB 1430 ELSE 
GOSUB 1520 

1230 FOB 1=10 TO 1 STEP-1 
1240 l(i)=z(i-l):y(i)=y(i-l) 

1250 ust 

1260 i(l)=i(2)*i:y(l)=y(2Hy 
1270 L0CATEI2,l(l),y(l):PBIHTI2,CHB 
Ka(lHz) 

1280 L0CATEI2,i(2),y(2):PBIHTI2,al( >EA 
2) 

1290 LOCATEI2,i(10),y(10):PBIHTI2,a >HF 
• (10) 

1300 GOTO 1140 
1310 ' 

1320 BEHiliiiiiiilllttiiiiilli 
1330 BEHiii collision bord •«• 
1340 KEHiiiiiiiiiiiiiiiiiiiiii 
1350 ' 

1360 SOUND 1,0,60,15,1,0,1 
1370 PEH ll,l:L0CATEIl,10,l:PBIHTIl )JB 
,'Paf ! dans le bord !MHK 2,19,7: 
GOTO 2040 
1380 ' 

1390 BEHiiiiiiiiiiiiiiiiiiii 
1400 BEHiii canni balisa* m 
1410 BEHiiiiiiiiiiiiiiiiiiii 
1420 ' 

1430 L0CATEI2,i(l)ti,y(l)ty:PBIHTI2 >WL 
,CHB«(a(l)):L0CATEI2,i(l),y(l):PBIH 
T»2,CHfi»(231):L0CATEI2,i(10),y(10>: 
PBIHTI2," ■ 

1440 IHK 2,19,7 >QC 

1450 FOB iu=100 TO 600 STEP lOrSOUN )IJ 
l,iu,2,15:HHT ni 

1460 PEHI1,1:L0CATE I1,8,1:PB1HTI1, >FH 
'Aaaaaahhh, je suis •ort...":G0T0 2 
040 
1470 • 

1480 BEHiiiiillllliiiiiiilliiiii 
1490 BEHlll rencontre aoibre m 
1500 BEHiiiiiiiiiiiiiiiiiiiiiiii 
1510 ' 

1520 ch=ch«l 
1530 as=ASC(cf)-4B 
1540 IF ch=l THEH u=as:qq=qq«l:GOT0 >HU 
1660 

1550 L0CATEI2,z(l)«i,y(l)«y:PBIHTI2 >VP 
,CHB«(a(l)):L0CATEl2,i(l),y(l):PBlH 
Ti2,CNB«(231):L0CATEI2,i(10),y(10): 
PBIHTI2,' ■ 

1560 IF as=-16 THEH 1570 ELSE 1590 >ZJ 
1570 FOB au- 100 TO 600 STEP 10:S0UH >IH 
D l,n,2,15:HEIT an 

1580 PEHI1,1:L0CATEI1,5,1:PBIHTI1,» >HJ 
Je n'en ai aanil que la aoitil !*;: 



>TE 
>UV 
)ZT 
MM 
>K 
>BE 
>MF 



V 



© e 



INK 2,18,7:G0T0 2040 

1590 no»b=u:u=»s >NP 

1600 IF i=l THEN noab=10>n«b ELSE >KG 

u*10tu 

1610 noib(qq)=noib»as:no«b=0:as=0 >DL 

1620 IF noiblqqKnoiblqq 1) THEN GO > VF 

SUB 1730:BETUBN 

1630 ch=0 >DA 

1640 IF q<|-q THEN 1650 ELSE 1670 >IB 

1650 PENH, 1:L0CATÎI1, 10, 1:PRIHTI1, >BF 

•HercI pour le repas. . .VGOSUB 1990 

1660 inkk=inkktl:IN( 2,ASC(IHDi('Gl >DR 

N0HZPHFG*,inkk,l))-64 

1670 BETUBN >FH 

1680 ' >TH 

1690 BFJIiiiiiffiiiiflltlfliiifiifflli >TD 

1700 EEKiii erreur dans l'ordre ut >TN 
1710 BEHitffiitimiiittiifiiifiitt >TU 

1720 ■ >tc 

1730 PAPES 3:PENI1,1 >NU 

1740 L0CATEIl,15,l:PRHrril,*FJIIEUI. >GB 

1750 FOI «1=100 TO 600 STEP 10:50UN >B1 
D l,Kl,2,15:NEIT ni 

1760 pn=0:FOR cll'l TO 21:pn=pn«l:P >H« 
EN pn MB 2*1:S0UND l,(pn KOD 4H20 




,5:L0CATE 1 , Z* : PR 1 MT'Tu as":L0CATE 
l,25:PBIHT"rIpondu 'jtNErnPEN 1 
1770 FOB it»l TO 1000:NEXT >UP 

1780 PBINT' "; >DK 

1790 FOB 1=1 TO qq >LH 

1800 PtINT noab(i);CHB«<8>; >WD 

1810 NFJT i >VF 

1820 FOB at=l TO 3000:NEIT at >W 

1830 pn=0:FOR cl i=l TO 21:pn=pMl:P >VQ 
EN pn KOD 2«1:50UND l.lpn KOD 4H20 
,5:L0CATE l,24:PRINT"J'aurai3':UKA 
TE l,25:PBINT"pr(f(r{ ";:NEIT:PEN 1 
1840 FOB at=i TO 1000:NFJT >UH 

1850 FOB 1=1 TO qq >LE 

1860 IF noab(i)>no*b(qq) AND rïaj=0 >NB 
THEN PBINT' •;:(la|=l:pl=l-l 
1870 PBINT noibli);CHJ«(B); >Wl 

1880 NEIT i >IK 

1690 FOB at=l TO 20O0:NEIT at >IIA 

1900 pn=0:FOfi cli=l TO 51:pn=pn»l:P >NK 
EN pn NOD 2: LOCATE 9»qq«3,25:PBIHT 
noib(qq):NEIT 

1910 LOCATE 9»qq»3,25:PBINT* ■; >AT 
1920 FOR I=qqt3 TO plf3 STEP-1 >B1 



1930 IF K>qql3 THEN SOUND 1,50,20, >CG 
8:F0B at=l TO 500:NFJT at 
1940 LOCATE 9«1,24:PBINT nnb(qq) >BP 
1950 NETT I >HA 

1960 SOUND 1,50,20,8:F0B at=l TO 50 >BZ 
0:NEXT at:LOCATE 10*i,24:PBINT ■ 

1970 LOCATE 10* i , 25 :PRINT noib(qq); >DH 
1980 FOB at 1 TO 3000:NEIT at >VB 

1990 ' >ZB 

2O00 BEHilfll'lllliflliiltill >UH 

2010 BEHiii fin de partie Hi >ÏI 

2020 BEH«Mlf»utittm«fi >UP 

2030 • >IH 

2040 FOB at=l TO 5000:NFJT at:CLEAB >BH 
1NPUT:H0DE 1 
2050 PAPEB 0:PEN CLOUTE 8,12:PBIN >ÏI 
T'On recoMence (0/N) ? ";:PEN 2 
2060 k»=IHCET$:IF M=" OB INSTBCO >TH 
oNn',k«)=0 THEN 2060 
2070 IF UPPEB*(k$)='0* THEN 2080 a >GD 
SE 2090 

2080 PBINT*OUI a :FOB at=l TO 1000:NE >EB 
IT at:POKE U000,0:BUN 40 
2090 PB1NT*N0N":F0B at=l TO 1000:NE )TJ 
IT at:CLEAfi INPUT:PAPEB 0:PEN tsCIL 
L MC02:HODE 1:SPEED KET 30,2:ENDA 
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PMXXCtPÇé 




Le jeu consiste à détruire des météorites et par là même 

l'Empire d'Antarès 3424. Vous disposez de 10 rayons lasers 

utilisables pendant 100 secondes. La difficulté du jeu 

augmente avec la descente des météorites et le rythme 

de leurs vagues successives. Chaque vague est 

identifiée par une couleur de fond. 

T I foui proléger les 6 entrepôts d'armement et les 4 compartiments 
A formant la centrale électrique. Cette dernière est la source d'énergie 
des lasers et chaque compartiment détruit fait perdre un pourcentage 
des tirs. Heureusement, la centrale se regénère après chaque vague. 
La partie se termine lorsque le dernier entrepôt 
d'armement est touché. 

Mission Apocalypse est formé de 3 programmes (MISS, MISS 2 et 

MISSION). Il faut les taper et les sauver puis lancer le tout par 

RUN «MISS, ou RUN ..MISSION... 



Mis 



10 BEH tiiHnHiiiHtinmi >tf 

20 BEH i MISSION APOCALYPSE t >Ih 

30 m i par f >FH 

40 (EU i LAIDIN JEAN-rlAK f >VB 

50 REM l (PIESBiTATION) f XK 

60 BEN lllttllllllllllllliiii >TL 

70 BU XK 
60 duMy=SQm:OK STJ<1! G0SUB 500 >AQ 

M CLSiHDDE OtBOBDEB 7 >JG 

100 SYHB0I. AFTEB >HD 



,199,166,42», 199 

120 STHBOL ASCW'l.O.tEF.iM.tFE,* >LH 

98,4FF,0,0 

130 STHBOL ASCe"),0,4FF,482,4F2,4 >LH 

12, If 2, 0,0 

H0 STIBOL ASCCC), 0,0,0,17,1,7,0,0 >C0 

,0 

150 STHBOL ASCC)'>,0,0,0,4E0,4E0,0 >EU 

,0,0 

160 STHBOL ASCCI'), 41, 43,46,46,47, X2 

I6,lfi,0 

170 STIBOL ASCI»»"), 480,400,460,460 >PV 

,4E0,460,460,0 

180 STIBOL ASCIU'l.Af ,46,46,47,46, >CT 

46,4F,0 



110 STHBOL ASCf!'),499,424,466,499 >BL i 190 STIBOL ASC<V>,«:0,460,460,480 >JL 1 330 STrBOL ASC<\'),460,460,460,4£0 >PE 



Jean-Marc LAIDIN 

,0,0,0,0 

200 STHBOL ASOIM"), 43,46,40,40,40, >JJ 

46,43,0 

210 STHBOL »SC(V), 480,400, 460, 460 >QC 

,460,4C0, 480,0 

220 STHBOL ASCd"), 400,460,0,0,0,4 >JH 

60,4C0,0 

230 STIBOL ASC('.-),4F,46,46,46,46, >GI 

46,4F,0 

240 STIBOL «SC("*»),0,0,0,0,«20,460 >fE 

,4E0,0 

250 STIBOL ASC<'1'>,48,48,46,43,41, XK 

41,43,0 

260 STIBOL ASC(T), 460,480,460,400 X)G 

,480,460,400,0 

270 STIBOL ASC(T), 43, 46,46, 43,0,4 XX 

6,43,0 

2B0 STIBOL ASC<V),4CO,460,0,4CO,4 XE 

60,460,400,0 

290 STIBOL ASCiV>,4F,46,46,4,,46, XB 

46,4f,0 

300 STIBOL ASCf\'),4EO,420,480,460 >PZ 

,480,420,4£0,0 

310 STIBOL ASC<"<«>,47,41,41,41,41, HT 

41,47,0 

320 STIBOL ASCer>,4C,4£,4F,4J>,4C, >HH 

40,40,0 



,4E0,46O,i60,0 

340 STMOL ASC<">">, «0,480, 480, 480 >PJ 

,480,480, «0,0 

350 RED if ikii» >IK 

360 BEH < TITRE ( >FC 

370 REM »»(»» >TB 

380 LOCATE 4,4:PB1HT*!!!!!!!!!!!!M >ÏP 

i'iLOCATE 3,8:PBINT'!M!!!!!!!!!!!! 

!!!!!• 

390 LOCATE 4, 5:PBINT- !H I 5 S 1 N >HL 

":L0CATE 3,9:P!INT"H4 l:i[l««()(4 

J?4\" 

AOOUKATE ♦,6:M1NT'!!!!!!!!!!!!!! >«0 

!':L0CATE 3, 10:PBIIIT" ! ! ! ! M ! r ! ! ! ! ! ! 

!!!!!!■ 

♦io locate i,namnrvwvvt >db 

♦20 LOCATE S.lAlPimTparVLOCATE 3 >KZ 

.lBîPHmT-S'ï+ltOïiOO.*'* 

430 LOCATE 3,19:PBlNT , «'t , » , «'« , *. , l >0W 

•«'■ 

440 LOCATE 1,22:P1MT , « , * , V%'» , * , « >ffl 

.,.,•!•. 

4S0 LOCATE 1,23:PBINT'»J E A II H MU 
AI C" 

460 locate 1,24:PBINT■«■»■» , « , «•« , * >hd 
■«'*•«'• 

470 FOI 1=1 TO S00:NEIT 1 >BB 
480 FOI 1=1 TO 2500:CALL 4BD24:CALL >NG 
4BD25:CALL 4BD23:NFJT i:S0TO 800 
490 IFJ (((((((»»(((»»•• >TV 
500 tEN • MARCHE MLITAIIE • >VF 
510 «EU « DE • >AF 
520 BEH ( Franz SCHUBERT ( >UP 
530 RED (••(••((«••(•••"« >T0 
540 8=5 >NH 

550 ENV 1,2,2,7,1,0,100 >PB 
560 READ A,D >ZB 

570 SOUND 1, A, BiD, 9,1 >PB 

580 SOU» 2,A-0.S,BlD,B >Qfi 
590 SOUND 4,4+0. S, 8(0,9,1 >TE 
600 ON SD(l) GOSUB 500 >PT 

610 BETURN >ZC 

620 DATA 239,4,319,2,319,2,330,4,31 >DB 
9,4 

630 DATA 239,4,319,2,310,2,338,4,31 >DC 
9,4 

640 DATA 239,4,319,4,239,4,319,4,23 >DJ 
9,4 
650 DATA 319,4,239,4,319,4,379,4,31 >DP 

M 

660 DATA 239,4,319,4,239,4,190,4,15 >DG 

9,16 

670 DATA 159,8,179,4,190,4,213,8,19 >DK 

0,4 

680 DATA 213,4,239,8,213,4,190,4,31 >CH 




690 DATA 284,2,319,4,1,4,159,8,179, >BP 
4 

700 DATA 190,4,142,8,159,4,190,4,17 >DA 
9,4 

710 DATA 159,2,179,2,190,4,179,2,19 >CH 
0,2 

720 DATA 213,4,379,2,358,2,319,2,28 >CH 
4,2 

730 DATA 253,2,239,2,213,4,213,2,21 >CF 
3,2 

740 DATA 239,4,213,4,190,4,179,4,15 >DH 
9,8 

750 DATA 213,4,190,4,179,8,190,4,21 >CD 
3,4 

760 DATA 239,6,213,4,213,2,213,2,23 >LH 
9,4,213,4,190,4,179,4,159,8,253,4 
770 DATA 239,4,213,6,190,2,239,4,31 >LV 
9,2,319,2,338,4,319,4,239,4,319,2 
780 DATA 319,2,338,4,319,4,239,4,31 >IU 
9,4,239,4,319,4,239,4,319,4,379,4 
790 DATA 319,4,239,4,319,2,319,2,31 >BN 
9,4,319,4,239,12 

800 (IODE 1:PEM 1:1.0CATE 5,h:PBIHT% >NA 
UE LES DIEU I":PEN 2:L0C 
AIE 13,13:PRINT*D U 1 E U':PEN 3 
:LOCATE 7,21:PBINT-S OIT AVE 
C VOUS* 

810 FOR 1=1 TO 1950:NEIT i >TF 
820 BUN*HISS2 >WG 



Miss 2 



10 STHBOL AFTEI 

20 REM ((((»»(»(((»»»■»(» 

30 REM ( • 

40 RED i REGLES • 

50 BEH l • 

60 RED »»»»»»»»»»»»» 

70 BEH 

80 REH 

80 DEFI NT A-Z 

100 CLEAI:CLS:PAPER 0:BDRD£B 7:PEN 

2:H0D£ 1 

110 LOCATE 4,3:PBIHTMiiti«(MMl(( 

(":LOCATE 15,9:PBINT*"M(M»mr: 

LOCATE 23,15iPBINT"(HUMfl(«:L0CA 

TE 29,21:PBWT'(itnntt« 

120 LOCATE 4,*:PEINT*« VOULEZ-VOUS 

(": LOCATE 1S,10:PIINT*I LA REGLE (• 

: LOCATE 23,16:PIINT'( DU JEU C:LOC 



ATE 29,22:PRINT'« I l I l' 
130 LOCATE 4,5:PRIKT , (»((»»»((( >RH 
•■:LOCATE 15,ll:PBINT■•((•tt■^(t^(■ 
:LOCATE 23,17:PBINT"(»»("(C:L0C 
ATE 29,23:PRINT , ((«Him» 
140 FOi 1=1 TO 2000.-NE1T 1 >TH 

150 z»=UPPEK*(IHKEY*l:IF z»=" TKEN >FU 
150 
160 IF z«="0- OR z»="o" THEN 200 >IQ 
170 IF z«="N' OR z«='n" THEN 190 >IT 
180 GOTO 150 >ZB 

190 FOB 1=1 TO 8:F0B J=500 TO 1 STE >DF 
P -10:S0UND 3, ],I,15:NEIT j:NEIT 1: 
FOR 1=1 TO 1000:CALL 4BD24:CALL 4BD 
25:CALL 4BD23:NEXT l:RUN"olsslon 
200 BEH (»(((i((f(f((f((((((i((l(( >TD 



202 REH • 

203 BEH ( 

204 BEH i 

205 BEH ( 

206 BEH i 



>AL 



PRESENTATION 



LABEGLE 



( >UZ 
t >GK 

• >CC 

• >HB 
i >IH 



207 BEH »»»» mm»»»»»»»» >TL 

210 DEFINT a-z:CLS:INK 2,15:INK 1,2 >VH 

3:1* 3,0,25:PEN 1 

220 PEN 3:L0CATE 14,3:PBINT'B E G L >HT 

E S' 

230 PEN 2:L0CATE 3,6:PRINT'V«ls ave >D> 
z ete choisi par le plus hautVPFJ 
l:PBlNT:PBINT*con»andeient de l'eta 
t njor des forces": PEN 2 
240 PBINT:PBINT'lnterslderales, pou >IN 
r «abattre la horde" :PEN 3:PBINT:P 
BINT" d'ANTAIES 3424*:PE 

N 1 

250 PRINT:PBINT' en vue de c X» 

onserver le ":PEN 2 
260 PBINT:PBINT' dernier bastion de >TC 

la planète CALTPSiT:PEN 1 
270 PRINT:PBINT" 2902 eus plane >QK 
tes de la ialazle":PEN 2 
280 PRINTtPRlNTtPRINT X1T 

ZEPHTRAN * 
290 FOR 1=1 TO 10:S0UND 9,200:SOUND >KD 

9, 4095, 9: SOUND 9,400,9:NEXT i 
300 LOCATE 35,25:PEN 3:PRINT*— >•: >GF 
PEN 2 

310 MILE IHŒTf=":IEND >UI 

320 CLS >TK 

, 330 LOCATE 3,3:PRINT*ANTABES 3424 a >BN 



A 



découvert une nouvelle' 
340 PU 1:PIINT:PIINT" arie, il a c >GG 
(instruit artificiel leaentVPEN 2 
350 PBIMT:P8IHT" ses propres aeteor >BV 
ltes destructrices. ":PEN 1 
360 LOCATE 3,9:PIINT*Aus«l, tu dois >8Q 

défendre tes 6 entre-" 
370 PEU 2:PB]MT:P8IMT- pots d >KC 
e l'an* ulefique ':PEN 3:PBIMT:PB 
INT" d'ANTABES 3424": PEN 

1 

380 PBIHTsPBlNT* Chique phase de j >IP 
eu dure 100 secondes':?» 2 
390 PRINT:PBINT' et tu cosaences a >IW 
vec 10 rayons I lier": PEN 1 
400 PRIMT;PHlhTT- pour intercepte >NT 
r les Kteor i tes." 
410 FOI 1=1 TO 10:S0UND 7,20O:S0IMD >KL 

7, 4095, 7: SOUND 7,400,7:1101 i 
420 LOCATE 35,2S:PEN 3:PIINT"— >": >«J 
PEN 2 

430 WHILE iHKET<-":WEND >UA 
440 as >uc 

450 LOCATE 3,3:PBlWT'les 4 transfor >VE 

•ateurs centraui sources*:PEN 1:PII 

HT" de ton énergie, se recharge aut 

oiati-" 

460 PEU 2:PB1KT:P8IMT' queaent a >T2 

près chèques vagues de" 

470 PEU 3:PB[HT:P8INT" >QÏ 

NETEOIITES" 

480 PEN 1:PBIHT:PHIMT- Si tes tran >Z0 
sforuteurs sont touches* 
490 PEN 2:PtlNT:niNT" tu perds >QH 
un pourcentage de tes" 
500 PEU 3:PRINT:PBINT' B >TD 
ATOMS UZEES" 

510 PEN l:PBl»T:PfilNT" Ta aission e >TB 
st de détruire plusieurs" 
520 PEN 3:PB1NT:PB1NT* >QU 

NETEOBITES' 
530 PEN 2:P!Hfr:PBIMT- avec un seul >BT 

rayon pour les économiser' 
S40 PEN l:PIINTiPIINr en >TA 

fin de partie' 
550 FOI 1=1 TO 10:S0UHD 5,20O:S0UkD >KF 

5, 4095, 5: SOUND b,400,5:»HT i 
560 LOCATE 35,2S:PEN 3:P1INT«— >': >6P 
PEN 2 

570 WHILE IHŒT» ":WEND >UF 
580 CLS >UH 

590 PEN 3:L0CATE 3,3:PBIHT" >8L 

SCOSE " 
600 PEN l:PIIHT:PBIIiT:PBINT" - 50 >CT 
Pts par aeteor i tes détruites." 
610 PEN 3:PBIKT:PBlHT:PfilHT' ->• >hK 




;:PEN 2:P81NT" A la fin de chaque v 

ague,' 

620 PEN 1:PBINT:PBIMT" les la >B> 

zers non utilises sont" 

630 PIINT:P1INT" aultiplie >EA 

s par';:PEN 3:PIINT* 10 0"; 

640 PEN 3:PBINT:PBIHT:PBIMT:PBIHT* >W 

> , iiPEN2:PBINT" 1000 Pts pour 
les entrepots"; 
650 PEN 1:P1INT:PBINT:PBINT" >QH 

restants et un'; :PEN 3:PBINT' BO 

NUS"; 
660 PEN 2:PB1NT:PBINT:PBINT" >QW 

d'entrepôts tout les " 
670 PEN 3:PI!NT:PIHrT* 2 >BE 

";:PEN 1:PBI«T" Points"; 
680 FOi i=l TO 10:S0UND 3,200:S0uW >U 

3, 4095, 3: SOUND 3,400,3:NFJT i 
680 LOCATE 35,25:PEN 3:PBIHT* — >": >«U 
PEN 2 

700 WHILE INKEÏv="":VEW> HM 

710 CLS >0C 

720 LOCATE 7,10:PBINT" J T S T I >NQ 
C K ";:PEN 3:PBINT" F 1 B E"; 
730 PEN 1:L0CATE 7,17:PBINT' C L A >WB 

V I E i ";:PEN 3:PtlNT" CO P T 

740 FOI 1=1 TO 10:S0UND 1,200: SOUND >KK 
1,4095,1: SOUND 1,400,1:NEIT 1 

750 LOCATE 35,25:PEN 3:PIINT"— >•: >GQ 

PEN 2 

760 WHILE IHŒTM":UEM> >UG 

770 CLS MU 

780 PEN 2:L0CATE 6,9:PRINT"»»»» >DC 

ttfttttttflttlltttlt" 

790 PEN 2=L0CATE6,UUPÏlllT"t , ;:PEN >BI 
3:P8INT"G L U C K 

•;:PEN 2:PBltfT**' 

800 PEN 2:LOCATE 6,ll:PIINT"tftftff >TA 

HHWIHMIII I IIIUf 1 

810 LOCATE 7,16:PIINr rai >8B 

fftfitmfitiftftiitttttt" 

820 PEN 2: LOCATE 3,18:PilNT"l";:PEN >CI 
3:PR1NT"B T S l G I 
B L S";:PEN 2:PBIHT"»* 

830 LOCATE 7,18:PBINT" tftttltlftf >BF 

ItlHIifltlttlIftltiflllf" 

840 FOI i=l TO 10: FOI ]=500 TO 1 ST >PC 

EP -10:SOUND 3, j, 1, 15:NFJT ):NEIT i 

850 FOI 1=1 TO 1000:CALL UD24:CAU »T 
i,BD25:CALL UD23:NHT 1 
860 IIM'iission >PA 



Mission 



10 BEN iiifitllfliittitiiiittfii ;n 

20 BEH > niSSION I >HJ 

30 BEN t l >AK 

40 BEN l APOCALYPSE I >QÏ 

50 UN i i >BB 

60 IFJI • (JEU) i >WB 

70 BEH « • >BD 

80 8EH irarairaiirainiraii >WA 

80 101 >H 

100 DEFINT a-z:KFIEAL o,i,y >IL 

110 DM i(20),y(20),oiti(20),«ty(2 HN 
Ol.ioat (20), entrepos(lO), hangar (20) 
,cible(20),tue(20),nrt(10) 

120 cun=10:cury=10:v=0:G0SUB 1380: >n 

daatyssgil) 

130 MODE 0:IAND0r1IZE TIKEiOBIGIN 0, >B0 

0,0,639,380,0 

140 noibh=6:noibt=4:noibr=10:teap=9 >TV 

9:coapte=l 

150 son$=CHfi«(22)*CHB«(l):sifll=CHB >BF 

X22HCHBX0) 

160 RESTORE 1950:PEN 9:L0CATE 1,1(1 >QN 

IINT "H:99"; 

170 PEN 5:L0CATE 7,1:PIINT "S:00000 >UC 

0";:PEN 10:L0CATE 17,1:PIINT "1:10" 

! 

180 FOI n=l TO 10:READ ent repos (n): )LV 

iort(n)=0:NEIT n:debangar=9 

180 INK 0,0:B0RDEB 0:iNK 1,21 ilK 2 >IA 

,23:INK. 3,16:11* 5,7 

200 FDI v=0 TO 4 STEP 2:PL0T 0,v,5: >KL 

DRAW 639,v:NEn v:PIINT son»; 

210 PEN 9: FOR n=l TO 10:1F n>3 AND >LE 

n<8 THEN 230 

220 LOCATE entrepos(n),25:PIINT •<> >FK 
■■ 

t 

230 NFJrr n:PEN 10:L0CATE debangar,2 >DL 

5:PÏINT" ifl»; 

240 PLOT 0,6,15:D8AW 0,14:PL0T 639, >PV 
6:DBAW 639,14 

250 EÏEIT 5000,1 GOSUB 1170 >U2 

260 EVEBY 50 GOSUB 1120 >QN 

270 RFJ1 «miiiiiimiiHmiiihii >ZT 



280 IEH l NOMBRE DE NETEOIITES 



>AC 



290 IEH i DESCENDANT SU» L'ECIAN >UJ 
f 
300 IEH lfiflillfMmitiiiitlii.il >ZB 



A 



310 ■et=2*ClKT(BMD»2> :FQB n-lneteo >VL 

r T0 ■et+ieteor 

320 x(n)^CiNT[RND«6*a):y(r)=*00:in >PV 

t(n)=i(n) 

330 hangar=itClNT(RNDi9):hangar(n)= >TB 

CIkT(32i<!ntrepos (hangar >*16i (hangar 

>3 AND hangar<8)l 

340 cible(n)=hangar:Mti(n)-(nangar >VE 

<n)-l(n))/100:oity(n>=(0-y<n) 1/100 

350 NEIT n:descoi=iet»ieteor >ZQ 

360 REM llllllfllltufiftiutlilto >AB 

fil 

370 REN i DEPLACEMENT DES METEORITE >F2 

S i 

380 «EH • ET DU CURSEUR >TK 

i 
390 REM txitllllfltllifltfllfilfXft >AE 
lit 

400 IF vit THEN 450 >KU 

410 FOI Ml TO descoa >PI 

420 i=i(n):y=y(n):PLOT i,y,lipitn >KT 
t»(n):y-y»oity<n):PLOT I,y,3:i(n)=l 
:y(n)=y 

430 IF y<20 THEN GOTO 610 >RC 
440 NEIT n >PB 

450 vit=l-vit:icursi=curi:ycursy=cu >LV 
fy 

460 cury'cury*<(INKEY(haut)=w> ■ (INK >UR 
Eï(bas)--w)) 

470 IF <cury<2 01 cury>23) THEN cur >HB 
y=ycursy 

480 curi=curi»((INKET("auche>=ll) ' 1 >AB 
NKET(droitel-w)! 

490 IF (cun<l 01 cun>20) THEN cur >IU 
i=icursi 

500 a= ((curi<4IHcuri<7H(cun<10) >IK 
):c=-(<curi>17H(ciirl>14H(curi>10> 
):b=3-(a*c) 

510 ton=curyi50: SOUND 129, ton, 99, a: >ZV 
SOUND 131,totl,09,b:S0UND 133, ton, 99 
,c 

520 DhPEN 4:L0CATE icursi,ycursy:P >PU 
BINT • »| 

530L0CATE cun,cury:PIINT *I*;:E1 >EL 
540 IF INKETIIeul-a THEN GOSUB 850 >BT 
550 IF (DMK0.015 AND descoiUB) TH >FI 
EN •eteor=descoi:G()ïï) 310 
560 GOTO 400 >ZB 

570 REN fifllfllfffxilflllixifllltlffl >AE 
lil 
580 BEN l DESTRUCTION DE LA CIBLE >BD 



590 8FJ1 • PAR LES NETEORITES 



>TK 



I REN •■■tiiiittittiiiffiffiififi >AT 




610 GOSUB 680: IF descoi=0 THEN u>te 

or 0:GOTO 310 ELSE GOTO 400 

620 END 

630 REN iHiiiiiiiiiiififiiiHiiiH 

il 

640 REN • DESTRUCTION DES ENTREPOTS 

i 
650 REN • et 

i 
660 REN i DE LA CENTRALE ELECTRIQUE 

* 
670 REN iiiiiiiiiiiiiiiiiiiiiiiiiii 
ii 

680 hangar=clble(n):lF lortlhangarl 
=1 THEN 720 
690 iort(hangar)--l:IF (hangar>3 AND 

hangar<8) THEN noibr=CINT(noibr-no 
■br/noibt):n<»bt-noibt-l:GOSUB 1070 
:1F noibKl THEN noibr=0:noibt=l:GO 
TO 720 ELSE 720 
700 noibh=noibh-l : IF(noibh«store)>0 

THEN 720 ELSE duuy=REIUIN(0):duH 
y=REHAIN<l):RESTORE:PEN 1:F0R 1=1 T 
500:CALL IM24:CALL »BD25:CALL 4B 
D23:NEIT l:INK 2, 15: INK 1,23: INK 3, 
0,25:PEN 3:L0CATE 7,12:PRINT'GAHE 
VFRVON SQUI GOSUB 162O:G0T0 2020 
710 GOTO 710 

720 FOR Mt«-4 TO 4 STEP 4:N0ÏE loi 
t<n)»ret,400:DRAV hangar(n)tret,0,0 
:NEIT ret 

730 DI:hanjar(n)--CINT(hangar(n)/32) 
:PEN 6:L0CATE hangar(n),25 
740 IF hangar(nl(9 OR hangar(n)>12 
THEN PRINT VV'iELSE PRINT"-'; 
750 FOR k=999 TO STEP -15:S0UND 5 
,RNDik,l,15,,,l:NErr k 
760 PLOT 0,0,5:DRAU 639,0:PL0T 0,6, 
15:DRAR 0,14:PL0T 639,6:DRAV 639,14 
:EI 

770 FOR k=n TO des coi- 1 
780 i(k)=i(k»l):y(k)=y(k*ll:o«ti(k) 
=01tl(k»l):oity(k)=oity<kll) 
790 ban(ar(k)=hangar(kt|):clhle(k)-- 
clble(k«l):iHt(k)=i«t(kil) 
800 NEIT k:descoi=descoi 1 
810 RETURN 

820 REN iimimiiiiimii 
830 REN • TIR DES LAZERS • 
840 REN iiiiiiiiiiiiiiiiiii 
850 IF roibr<l THEN FOR hyt=300 TO 
STEP -10:SOUND 130,byt,l,5:NFJT h 
yt:GOTO 1080 



>FI 



>ZC 



>08 



| 860 ci=CINT(corii3216):cy=CINT(408 >PQ 
-curyll6) 

870 PLOT 0,16,14:DRAU ci,cy:PLOT 63 >UE 
9,16:DRAV ci.cy 

800 DhPLOT ci,cy,ll:biluj=0:tue=0 >CH 
890 j=0:eipi=25:eipy=0 >TL 

900 jl=J»e«py»eipytl:J2=jl-eipi-eip >ÏJ 
il»l:NOÏE ci,cy:DRAVR eipi.eipy 
910 HOVE ci,cy:DRAVR eipi,eipy:NOV >AK 
E ci,cy:DRAVR eipi,-eipy:NOVE ci.cy 
920 DRAVR -eipi, -e»py:HOYE ci,cy:DR >KZ 
AVR eipy,eipi:NOVE ci.cy 
930 DRAVR -eipy,eipi:r10VE cx,cy:D8A >KC 
VR eipy,-eipi:NOVE ci,cy 
940 DRAVR -eipy, -eipi: j-JI :eipy eip >NH 
y»2:EI 

950 SOUND 128,J1:S0UND 131 . eipy : SOU >RI 
ND 133,eipi 

960 IF ABS(J2XABS(jl) THEN j=j2:ei >NG 
pi=eipi-l 

970 IF eipi>eipy THEN 900 >UB 

980 IF bing THEN 1070 >NU 

990 FOR 0=1 TO descoaMF TEST(iln), >VT 
y(l))=ll THEN tue=tue<l:dest(tue)=n 
1000 NEIT n:IF tue=0 THEN 1050 >Œ 

1010 FOR recoi=l TO tue:n=dest(reco >GV 
■ ) 

1020 FOR ret=-4 TO 4 STEP 4: HOVE io >FK 
■t(n)tret,400:DRAU i(nHret,y(n),0: 
NEn ret 

1030 FOR banj=1500 TO 100 STEP -25: >QV 
SOUND 5,RNDibang,3,bang/2O0,0,0,ban 
g/350:NETT bang:GOSUB 770:F0R pm 
oui TO tue:dest(i)=dest(i>-l:NEIT 



>KD 





1040 NEIT recoe:tscore=tscore*50itu >TQ 


>LA 


e:DI:GOSUB 1320 






1050 bing=l:DI:PLOT 0,16,0:DRAU ci 


>GE 


>AL 


cy:PLOT 639,16:DRAU Cl.cy 






1060 no«br=noibr-l:PLOT ci,cy,0:GOT >KF 


>VH 


890 






1070 DhPEN 10:L0CATE 19,1:PRINT US >TA 




INC Mf;rKMbr;:EI 




>8U 


1060 RETURN 


>FC 


>NE 


1090 REN lillllllflllllllflif 


>TZ 




1100 REN i COMPTE A REBOURS • 


>VU 


>PH 


1110 REN imiiHmiimilH 


>TR 




1120 DI:teip=teip-l:PEN 9:LTJCATE 3, 


>KV 


>V0 


1 : PB 1 NT USING ■lf;tnp;:EI 




>ZE 


1130 RETURN 


>EJ 


>RA 


1140 REN liiiiiuiiniHlimiilf 


>VN 


>TÏ 


1150 REN i FIN DE CHAQUE VAGUES • 


>ZP 


>RC 


1160 REN iiniiimmimiinin 


>VQ 


>JH 


1170 couleur-couleur+1: IF (couleur 


>RC 



2 OR couleur=7 OR couleur=12 OR cou 

, leur-14 OR couleur=16 OR couleur=21 



A 



OB couleur=24) THEM 1170 
1180 IF couleur-26 TIEN couleur^ >CP 
1190 IMC O.couleuriBOBDEB couleur:t >NC 

■pin 

1200 tscore=tscore«1000li»«bh*100ir, >VF 

oibr:no.bt=*:nolbr=IO:GOSU8 1070 

1210 FOI retabl =4 TO 7:wrt(retabl> >VQ 

-0:NEIT retabl 

1220 PEU 10:L0CATE detnnfir,2S:PBIN >BV 

T mt|*****|titlt| 

1230 IF <tscore/coipte»=20000 THFJ >CÏ 

coapte - coapte + 1 : score- scor e 1 1 : FOR 
retabl- i TO 99 -.SOUND 130, HND«retab I 
,l,7:«En retabl 

1240 IF (no«bb;6 OR score=0> THEN 1 >DI 
320 

12SO Fût centrales TO 3:retabl=7,c >LV 
entrale: IF lorKretabl )--0 THE* reta 
bl=4-centrale:IF iort(reUb!)=0 THE 
N 1310 

1260 iort<retabl>=0:noibh=nn«bhtl:s >W 
core=score-l 

1270 PEU 5:L0CATE entreposlretabl ), MK 
25:PBINT son» ;CHS»<2S5> : CHS« (25S > ; 
1280 PEU 9:L0CATE entreposlretabl), >CT 
25:PR1KT *<>*}«If l»l 
1290 IF (noibh=6 OS score^O) THE» 1 >DC 
320 

1300 IF retabl >7 THFJ retabl =4-cent >BP 
rale:IF «ortlretabl ) = 1 THEN 1260 
1310 NETT centrale >NT 

1320 IF tscore>999999 THEN tscore=t )ZE 
score- 1000000: co.pte=l:PFJ 5:L0CATE 

9,1:PBINT'000000\ 
1330 score«-STR»(tscore):score«--«ID >TT 
•(score», 2) 

1340 LOCATE (l«Htscore>9)»(tscore> >RI 
991 « ( t scor e>999 ) « ( tscore>9999) * ( tsc 
ore>99999)),l 

1350 PEN 5:PIINT score»; >TH 

1360 BETURN >FD 

1370 RFJ1 •miittilllfiilti >BF 

1380 RE» • INITIALISATION l MM 

1390 BEN imiiiimiKHH >RH 

1400 MODE 1:INK 0,13: I NK 1,0:INK 3, >HE 
22:B0SDQ 9 

1410 PEN 1:L0CATE 1 1 , 2 : PB I NT*MI SS 1 D >VT 
N APOCALYPSE* 

1420 PEN 3:LOCATE 18,4:PIINTpar' >CF 
1430 PEN 2:L0CATE 12,6:PBINT*LAIDIN >BJ 
JEAN-HARC* 

1440 PEN 1:L0CATE 9,10:PBINT*FAITE >AH 
PREUVE D'HABILITE* 

1450 PEN 3:LOCATE 13,13:reiNT*ET D' >P« 
UN PEU DE* 
1460 PEN 2:L0CATE 1S,16:PR1NT*STRAT >KV 




EGIE* 

1470 PEN 1:L0CATE 4,19:PBINT"(F0NCT >NE 
IONNEHENT OU LAZEB A 991!!!)' 
1480 PEN 3:L0CATE 3,24:PRINT 'APPUT >UG 
EU SUD LA TOUCHE ESPACE OU FIBE" 
1490 a»=INKET»:IF(a»<>* • AND a»<>* >TT 
I") THEN 1490:1F <a»=* ■ OU 1»»*P) 
THEN 1500 

1500 IF a«=" • THEN haut=0:bas=2:|a >AU 
uche=8:droite=l:feu=9 ELSE haut=72: 
bas=73:iauche=74:droite=75:feu=76 
1510 STIBOL AFTEt >NU 

1520 STIBOL ASC('<*I,0,I£5,UA,M1, >RN 
UA,t95,(AA,Ul 

1530 STIBOL ASC( a >'),0,t«A,t5D,tai, >BT 
B55,M9,t55,*81 

1540 STHBOL ASC(*/*),0,0,0,0,0,*CO, >DV 
IfO 

1550 STIBOL ASC<*\">, 0,0,0,0,0,13,* KA 
F 

1560 STIBOL ASC(" a ),0,lrSA,l£7,l5A, >TE 
«BD,142.U)B.»5A 

1570 STIBOL ASC<*I">,13C,KA,*A5,*C >VU 
3,IC3,*A5,»SA,13C 

1580 STIBOL ASC<*-"),0,0,0,0,0,»C3, >DC 
U7 

1590 STIBOL 255,0,0,0,0,0,lFF,lFF,l >DZ 
FF 

1600 BETUBN >FA 

1610 BEN llflllltiififiiiiiiiiiiiii >TP 

1620 BEH » HUSIQUE • ME 

1630 BEN • U Traite de t >BQ 

1640 BEN • SCHUBERT I >PC 

1650 BEN •lifiiitiilllltifilifitiit >TU 



1660 SOUND 4,A,Bt3,V,l 
1670 SOUND 2, A 1,B»3,V,I 
1680 SOUND l,A,Bi3,V,l 
1690NFJTK 
1700 BETUBN 
1710 DATA 358,8 



>QZ 
>RT 
>0ï 
>WD 
>FB 
>RJ 



1770 DATA 284,8,319,4,284,4,268,8,3 >EV 

79,8 

1780 DATA 358,16,2,8,358,8 >TJ 

1790 DATA 284,8,284,8,268,4,284,4,3 >EH 

19,4 

1800 DATA 284,4,268,16,358,8,268,6, >FD 

284,8 

1810 DATA 284,8,284,4,201,4,239,4,2 >N 

84,4 

1820 DATA 268,24,268,8 >PL 

1830 DATA 301,8,301,8,301,8,268,8,2 >EK 

68,16 

1840 DATA 358,12,358,4,358,16,239,8 >FZ 

,284,8 

1850 DATA 268,24,268,8,284,4,319,4, >EH 

319,8 

1860 DATA 319,4,268,4,284,4,239,4 >TB 

1870 DATA 268,16,358,12,308,4,358,1 >BV 

6 

1880 DATA 239,8,284,8,268,16,358,4, >FD 

426,4 

1890 DATA 402,4,379,4,358,4,213,8,2 >EE 

68,8 

1900 DATA 2,4,536,4,426,4,402,4,379 >CF 

,4 

1910 DATA 358,4,213,8,268,8,2,10,53 MX 

6,* 

1920 DATA 426,4,402,4,379,4,358,4,2 >DT 

13,8 

1930 DATA 358,8,268,24 >PN 

1940 BEN IIHIIHHIIIIIIHOHHH >ZI 

1 

1950 BEN • POSITIONS DES ENTREPOTS >EU 

i 

1960 BEN •liiiifififiiiiliiifiiltit >22 

1970 DATA 1,4,7,9,10,11,12,13,16,19 >AÏ 

1980 BEH tittfi»flfififl»tlll»l»ltf >AD 
if 

1990 BEH • CONTROLE D'UNE >PC 

• 
2000 BEN • PARTIE FINIE >TN 

l 
2010 BEH •••ftffflltliliiiiHiiifti >ZU 



2020 CLS:MDE 1: STIBOL AFTEI 0:B0B0 >BG 
EB 9:INK 2,1S»IK 1,23:INK 3,0,25:P 
EN 3:L0CATE 10,12:PBINT*UNE AUTRE P 
ARTIE 0/N* 

2030 f»=UPPER»(IHŒT»):lF •♦=•• THE MX 
N 2030 

2040 IF t>*0* OR •««••• THEN RUN >TB 
2050 IF f»=*N* OR f»=*n* THEN NE» >TN 
i 1760 DATA 213,8,213,8,268,16,358,8, >EE .2060 GOTO 2030 MUA 



1720 DATA 268,8,268,8,213,8,213,8,2 >EA 

68,16 

1730 DATA 358,12,358,4,358,16,239,4 >F0 

,268,4 

1740 DATA 284,4,319,4 >NH 

1750 DATA 358,16,2,0,358,8,268,8,26 >DD 



A 



Listing 
couleur 

\qcPC62H- 

Arnaud BERRY 

Ce programme permet, lorsqu'il 
est appelé, d'afficher en couleur 
(couleur de l' encre n" 2 ) les numé- 
ros de lignes de programmes lors 
d'un listing. 

Un autre appel et l'effet est annulé. 
En mode 2, par exemple, un LIST 
ne fait pas apparaître les numéros de li- 
gnes (cela fait un drôle d'effet). 

Il suffit alors de faire : Run «Listcoul» 
puis un CALL &A500 (puis un list). Un 
autre call & A500 et tout est normal. 

10 S=0 >HH 

20 F08 1=0 T0 116 >CE 

30 «EAD M >JA 

40 POKE IA500*I,ÏALCI"»A») >WI 

50 S=S»ÏAL('l'»A«) >NE 

60 NEtT I >GJ 

70 IF SO160B3 THE» PBIMT'EiBEW >BU 

MEMO >UI 

100 DATA 3A,5A,BB,FE,CF,20,0C,3E >ZC 

110 DATA C3.32,5A,BB,2t,22.A5.22 >Y0 

120 DATA 5B,BB,C9,3E,CF,32,5A,BB >ZH 

130 DATA AF,32,SB,BB,3E,94,32,5C >ÏT 

1*0 DATA BB,C9,F5,D5,E5,CD,93,BB >ZF 

150 DATA 32,75,A5,2A,34,AE,23,7E >TP 

160 DATA FE,A7,E1, 20,16,11, A4.AC >TN 

170 DATA CD,60,A5,13,CD,60,A5,13 >ÏY 

180 DATA CD,60,A5,13,CD,60,A5,13 >TZ 

190 DATA CD,60,A5,O0,Dl,Fl,CD,5C >ZB 

200 DATA A5,F5,E5,3A,75,A5,CD,90 >TE 

210 DATA BB,E1,F1,C9,00,CF,00,94 >TQ 

220 DATA 7C,92,C0,7D,93,C0,7E,FE >ZG 

230 DATA 3A,DO,FE,30,D8,E5,3E,02 >TW 

240 DATA CD,90,BB,E1,C9 >QT 




^Satania 



René VENICX 

SATANIA est une simulation, 
sur CPC, du jeu de lettres 
«SATANIX». 

Ce jeu est constitué d'un axe de 
plastique autour duquel pivotent 
16 anneaux amovibles , chacun 
d'eux comportant 9 lettres ainsi 
qu'une case vide. 
Le but du jeu consiste à former 
des mots en manipulant les 
différents anneaux de manière à 
obtenir le plus de points, compte 
tenu de la valeur des lettres ; de 
plus, un «boni» est accordé pour 
les mots comprenant au moins 
sept lettres. 

Ce programme permet de disputer de 
passionnants tournois chronométrés 
avec un maximum de 5 joueurs qet of- 
fre en outre 5 niveaux de difficulté dé- 
terminant le nombre minimum de lettres 
que doivent comporter les mots ; de plus, 
SATANIA «mélange» au hasard les «an- 
neaux» à chaque tour. 



LE JEU 

Après la présentation, vous entrez le 
nombre de joueurs, les prénoms ainsi que 
le niveau de difficulté choisi (niveau 1 : 
minimum 3 lettres ; niveau 5 : minimum 
7 lettres !) : ensuite, entrez la valeur du 
chrono (1 à 5 minutes) : si vous désirez 
le mettre hors service, pressez simple- 
ment N. 

La partie démarre alors avec la réinitia- 
lisation des anneaux et l'affichage de 
ceux-ci. 

Pour former un mot, sélectionnez l'an- 
neau désiré au moyen des touches < » 

puis, faites-le «tourner» vers le haut ou 
le bas par les touches T 4 et ainsi de suite 
jusqu'à l'obtention d'un mot complet dans 
la rangée centrale entre les deux repères 
jaunes (le mot ne doit pas obligatoire- 
ment commencer par le prem ier anneau, 
mais ne peut pas comprendre d'espace !). 
Lorsque le mot est terminé, pressez EN- 
TER pour le valider : il sera alors repro- 
duit en dessous du SATANIA tandis que 
le programme calculera et affichera vo- 
tre score et votre boni éventuel : on presse 
ESPACE pour passer au joueur suivant. 
Une partie comprend 10 tours et, à la fin 
de chaque tour, le nom du joueur ayant 
le meilleur score est affiché sous la va- 
leur des lettres. 

Les mots ayant déjà été proposés au cours 
d'une partie ou ne comportant pas le mi- 



A 



>s 



nimum de lettres requis seront refusés : 
dépêchez-vous de corriger avant que 
n'expire le temps imparti, car si vous 
n'avez pas pressé ENTER à temps, SA- 
TANIA vous collera un score nul sans 
autre forme de procès ! 
Les mots entrés peuvent être des noms 
communs, adjectifs, au féminin comme 
au pluriel ainsi que les verbes conjugués 
ou non, à l'exception des noms propres 
et des noms composés : le dictionnaire 
est évidemment autorisé ! 



Le programme ne peut malheureusement 
pas vérifier la validité des mots : soyez 
"sportifs" ! 

Le boni est de 5 points pour les mots de 
7 ou 8 lettres, de 10 points pour les mots 
de 9 ou 10 lettres et de 15 points pour 
les mots de plus de 10 lettres. 
A la fin de la partie, SATANIA congra- 
tulera le (la) gagnant(e) et vous propo- 
sera de rejouer. 



QUELQUES «TRUCS» POUR JOUER 



CONSTRUCTION DES MOTS 

Comme expliqué dans le mode d'emploi, un mot ne doit pas nécessairement commencer 
par le premier anneau, mais doit, DANS TOUS LES CAS être suivi d'une case vide sauf, 
évidemment, si la dernière lettre occupe le dernier anneau. 

Tout mol ne commençant pas par le premier anneau doit OBLIGATOIREMENT être précé- 
dé d'une case vide : le programme fera alors de son mieux pour «ignorer» les lettres qui 
traîneraient devant lui dans la rangée centrale. 

Il faut cependant veiller à ce qu'il n'y ait pas avant le mot un groupe de lettres dont la lon- 
gueur atteindrait le nombre de lettres minimum, sans quoi, le programme prendra ce «groupe» 
pour le mot proprement dit et ignorera tout ce qui se trouve après le premier espace rencon- 
tré. 

Si ce groupe de lettres est trop long, il vous faudra donc le «briser» par une case vierge de 
manière à former 2 groupes de lettres dont la longueur sera «insuffisante», ce qui permet- 
tra au programme de les ignorer. 

Prenons un exemple : vous jouez au niveau 1 (3 lettres minimum) et, dans la rangée cen- 
trale, figure ceci : 

XLD W HYGIENE 

Pressa ENTER et le mot HYGIENE sera seul retenu puisque les groupes de lettres qui pré- 
cèdent le mot sont insuffisamment longs, mais si vous faites ceci : 

QXRBTAXim 

Pressez ENTER et vous obtiendrez XRB ! 

Recommencez T expérience et remplacez V une de ces 3 lettres par un espace : vous ne man- 
querez pas votre TAXI, cette fois t 

Voici comment fonctionne le programme : après avoir réinitialisé la chaîne MD$, il va ex- 
plorer la rangée centrale jusqu'à ce qu'il trouve un groupe de lettres contenant le minimum 
de lettres requis : ceci pour vous éviter de devoir faire précéder votre mot par une série de 
cases vierges depuis le premier anneau ! 

Le problème ne se pose donc que pour les lettres AVANT le mot proprement dit et l'on 
comprend que sa fréquence diminue avec le niveau de difficulté choisi puisque le mot doit 
être de plus en plus long ! 



\ 5 CPC bbà 



10 ' SATANIA, par Bel» VENICI >LA 

20 ' D'après le Jeu SATAWI (Cl >U 

30 ' septembre 1988 )LC 

40 ' >LD 

50 CLS:CLEAR:G0SUB 1030:G0SUB 1310 >CV 

60 IF C«=0 THE» PEU 1:L0CATE 34,7:P >HZ 

JIHT'HON' 

70 FOU T=l T0 10:UKATE 36,16:PEN 1 VU 

-.PBIMT TiGOSUB 290 

80 FOR JIM T0 NJ:IHP=IHP»1:L0CATE >TD 

2,19»JN:PFJi 1:PBIKT J»(JN):TE=l:IF 

CD THEN HN=Cl:SEC=liL0CATE 34,7:PII 

HT USING*t";CHi :PBIIIT":00" 

90 G0SUB 410:PEN 0:PAPES 1:L0CATE 3 >DU 

2 > 9:PIIHT'EMTEE , :P*PEÏ 3:L0CATE 31, 

12:PRIKT'EGPACE':PAPEB 0:PEN 1:G0SU 

8 510: IF T=10 AND JN-NJ THEN 140 

100 PEU 0:PAPER 3:LDCATE 32,9:PBINT >TQ 

•ENTEJVPAPa 1:L0CATE 31,12:P8INT" 

ESPACE': PAPER 

110 G0SUB 2060: IF ASC(M><>32 THEN >DB 

110 

120 PEU 2:L0CATE 2,TP:P8INT llUVlt >K8 

LOCATE 1S,TP:PR1WT SC:L0CATE 26,TP: 

PS1NT ST:L0CATE 33,TP:P1IKT SCT(JN) 

:1F m THEN LOCATE 21,TP:P1INT BN 

130NEZT >DK 

140 FOR IE=1 T0 KJ >U 

150 FOI 11=1 TONJ >LP 

160 IF IE=II THEN 180 >NV 

170 IF SCTMEKSCTdl) THEN 200 >TL 

180 NEXT >EE 

190 G»=J»<IE>:LG=LEN<G»):LDCATE 2,7 )AV 

:PIINT STEINGK12,' '):L0CATE 2,7:P 

EN 1:P1IHT GI:G0T0 210 

200 NET )DH 

210 HEIT:R£STORE 2020:GOSUt 1970:PR >AN 

INT CHM(22);CHM(1):L0CATE 12HKT( 

(16-LG)/21,11:PEN 1:PIINT G»:PiINT 

CHR»(22);CHR»<0kREST0RE 220 

220 DATA 120,190,94,160,80,120,80,9 >B0 

4 

230 DUR=b0:F0R 1=1 TO 4:READ «1,1(2: >«l 

SOUND l,Nl,Diffi,7:S0W) 2,N2,Du1,15: 

DUI=DUI<5:NETT 

240 GOSIIB 2060:8*=UPPEB*(8*):1F ASC >JN 

(MK78 01 ASC(M»79 THEN 240 

250 IF M=«0' THEN (UN ELSE OS:END >BH 



260 ' 



>U 



^^ 



270 ' MELANGE ANNEAUX >RK 

280 ' >TA 

290 FOR 1=1 TO 16:FL<I)=0:NFJT >ÏF 

300 PEU 2:F0R 1=27 TO 12 STEP -1:F0 >KN 

t ï=9 TO 13 

310 IF T=U THEN SOUND 1,S00,3,1S:C >PN 

=232 ELSE C=32 

320 l.OCATK I,T:PRIHT CHRI(C):NEIT:N >JG 

En 

330 randdhize tihe >nv 

340 FOB 1=1 TO 16 >CF 

350 H=[NT(RND*20>:IF H<1 OR H>16 TH >GT 
EX 350 

360 IF FUH>=1 THB 380 >PT 

370 SA(l)=H:a(H)=l:HFJT:FOI 1=1 TO >WT 
16:L(1,1)=1:NEIT:G0SUB 2110:BETORN 

360 ' >TB 

390 ' REINITIALISATION ANNEAUX )TC 

MO ' >RE 

410 GOSUB 2U0:PEN 0:LOCATE 12,14:P >KL 

RINTEF» 

420 PEINT CHRI(22>;CKR«(1>:F0R 1=1 >CN 

TO 16:1F L(l,l)=4 THEN 460 

430 FOR IA=1 TO 5:L(IA,I)=IA*3:L»(I >UN 

A, 1)=HID*(A*(SA(I>),L(IA, l),l):NEXT 




440 FOR T=9 TO 13:L0CATE 1 1 * 1 , Y : PEU 
2:PRINT CHR«(2S2):PEN 1:L0CATE 11* 

I,T:PRINT L»<T-B,I):IF T=U THEN SO 

UNO 1,500,3,15 

450 NETT 

460 NEn:PRINT CHR*(22);CHR$(0) 

470 S=1:L0CATE 12,14:PEN 3:PRINT CH 

M<244>:RETURN 

480 ' 

490 'CONFECTION BOTS/CALCUL SCORE 

500 ' 

510 IF CR THEN EVERT 50 GOSUB 1880 

520 PRINT CHR«(22);CHR«(1>:EI:G0SUB 
950:DI:IF TE=1 THEN 540 

530 PRINT CHR»(22)jCHM<0):Z=REHAIN 

(0):SC=0:UI=0:GOSUD 2U0:L0CATE 14, 

16:PEN 1:PRINT*TEHPS ECOULE* :FOR 1= 

125 TO 500 STEP 2:S0U» 1,I,1,15:NE 

IT:GOTO 840 

540 IF C=13 THEN PRINT CHR»(22);CHR 

<(0):GOTO 700 

550 IF C<242 THEN 600 

560 PRINT CHR«(22)|CHRt(0):L0CATE 1 

1*S,14:PRINT* * 

570 IF C=242 THEN S=S-1 ELSE S=S*1 

580 IF S<1 THEN S=l ELSE IF S>16 TH 

EN 5*16 

590 PEN 3:L0CATE 11<S,14:PIINT CHR» 

(2441:50UND 1,125,3,15:PRINT CHMC2 



>TG 



>EE 
>ZN 
>UP 

>TC 
>TD 
>BF 
>AV 
>DÏ 



>PF 



>NV 
>Ufi 



>AW 
>GB 



2);CHR»(1):G0T0 520 

600 IF C=240 THEN P=1:D=13:A=9:ST=- 

1 ELSE P=-1;D=9:A=13:ST=1 

610 FOR 1=1 TO S 

620 L(1,S)=L(I,S)*P 

630 IF LU, SKI THEN L(1,S)=10 

640 IF L(I,S)>10 THEN L(I,S) = 1 

650 L»(I,S)=HID»<A«(SA(S)),L<I,S>,1 

):NEn 

660 FOB T=D TO A STEP ST 

670 PEN 2:L0CATE lltS,T:PRINT CHR»( 

2S2);CHBII8);:PEN 1:PRINT L»(Ï-8,5I 

680 IF Y=U THEN SOUND 1,500,3,15 

690 NEXT:GOT0 520 

700 HD»=":U1=0 

710 FOR 1=1 TO 16:1F L»(3,I)<>* " T 

HEN 730 

720 IF LH<ND»2 THEN HD»=":GOTO 740 

ELSE 750 

730 m«=H0»«L»(3,I):U1=LEN(HD«) 
740 NEIT: IF LH>=ND»2 THEN 750 ELSE 
GOSUB 2110:PEN 1:L0CATE 14,16:PRINT 
"HIN LETTRES* :LOCATE 17,16:PRINT 
ND«2:G0SUB 2150:G0T0 520 
750 I=12»INT((16-UI)/2) 
760 IF IKP<2 THEN 800 
770 FOR CTR=1 TO INP-1 
780 IF HM=HDP»(CTR) THEN GOSUB 211 
0:LOCATE 13,16:PBINT"DEJA PROPOSE ! 
*:GOSUB 2150:GOTO 520 
790 NETT 
800 nDP«UHP)=KDt:Z=REHAIN(0):GOSUB 

2110:PEN 1 : LOCATF I,16:PRINT ND1 
810 PEN 1:SC=0:F0R 1=1 TO LU 
820 SC=SC*VL<ASC(HID»(<HD«I, 1,1)1-6 
4) 

830 NEIT 

840 IF LM<7 THEN BN=0:GOTO 880 
850 IF LH>6 AND Ul<9 THEN BN=5:G0T0 

880 

860 IF LN>8 AND LI1<11 THEN BN=10:GO 
TO 880 

870 IF LH>10 THEN BN=15 
880 ST=SC»BN:TP=19*JN:SCT<JN)=SCT<J 
N)+ST:RESTORE 890:F0R 1=1 TO 4:READ 

A:LOCATE A,(P:PRINT Z»:HEIT 
890 DATA 16,21,27,34 
900 PEN 1:L0CATE 15,TP:PRINT SC:LOC 
ATE 26,YP:PRINT ST:LOCATE 33,TP:PRI 
NT SCT(JN):IF BN THEN PAPER 2:L0CAT 
E 21,TP:PRINT BN:PAPER 
910 LOCATE 11»S,14:PRINT" VRETURN 
920 ' 



"930 ' GESTION CLAVIER >TC 




940 ' >TD 




950 CAU. UIB03 >KD 




960 R*=INKETI >BF 


>EH 


970 IF TE=0 THEN RETUBN >RR 




980 IF Rt=" THEN 960 ELSE Dl >UD 


>VJ 


990 C=ASC(R»):IF C<>13 AND (C<240 >RI 


>NP 


t C>243) THEN EhGOTO 950 ELSE RETU 


>w 


RN 


>WG 


1O00 ' >JD 


>JI 


1010 ' INITIALISATION GENERALE >IE 




1020 ' >XF 


>RR 


1030 DEF1NT A-Z:DIN PR»(16),A«I16), >VJ 


>UN 


HDPI(50),SA(16),FL(16),VL(26),L(5,1 




6),LI(5,16I:INK 0,0:BORDER 9:INK 1, 


>ZD 


25:INX 2,2:tK 3,16:Sm=STIING«18 


MN 


,CHR«(252)):ETI=STRlNGt(16,CHR»(252 


>XH 


)):Z$=STRING»(4," *) 


>FI 


1040 TVL«=*1424144818C24224C11224CC >a 

C8" 

1050 STHBOL 248,14,30,62,126,254,25 >HH 


>JG 




4,254,0 


>ZH 


1060 STHBOL 249,240,248,252,254,254 >LE 


>QF 


,254,254,0 




1070 STHBOL 250,254,254,254,254,126 >JD 




,62,30,0 




1080 STHBOL 251,254,254,254,254,254 >LE 


>n 


,252,248,0 


>NR 


1090 STHBOL 252,254,254,254,254,254 >LF 


XK 


,254,254,0 


>AZ 


1100 FOR 1=1 TO 26:ÏL(l)=ÏAL("t**HI >IP 




D«(TVL«,I.1)):NEIT 




1110 RESTORE U20:F0R 1=1 TO 16:REA >GB 


>FB 


D l»:At( 1 ) = U : NEIT : RETURM 


>TJ 


1120 DATA ACTEU RI SB >PE 




1130 DATA ALEBS UKI >PX 


>vg 


1140 DATA DOVBN EAIF >PP 


>EJ 


1150 DATA UPSAR ICNE >PN 




1160 DATA HNEVL TUOS >PE 


>EG 


1170 DATA EJNRA SLIU >PB 


)IG 


1180 DATA SOCT» EAIR >PG 


>FA 


1190 DATA LIRAS ITNE >PT 




1200 DATA mUNZ LEAR >PH 


>GW 


1210 DATA AGTED OPRF >PC 




1220 DATA OHITD RESA >PR 


>HN 


1230 DATA E1U» ARSO >PR 


>PA 


1240 DATA IOGTC EFPA >PV 




1250 DATA EOTCU DBAS >PE 




1260 DATA SRIAE TGTH >PK 


>NP 


1270 DATA LIZRS NEHA >PF 


)RD 


1280 ' >ÏD 




1290 ' PRESENTATION >TE 




1300 ' >K 




1310 RESTORE 1330:F0R 1=1 TO 7:READ >GK 


>DP 


A,8,C:TC=400-(AH6)«8:ID=(B»16)-9: 



>TB • IA=(Ctl6)-9:H0VE ID,TC:DRA« IA,TC,3 



^^ 



ma 

1320 RM 1=1 T0 10:BEAD A,B,C:IC=(A >FU 

•16)-9:TD=400-(Btl6)»8:TA=400-(CH6 

>»8:F08 BV=0 TO 2 STEP 2:IC=IC»tV:K 

0« IC,Tt:MA« IC,TA,3:MnT:KErr 

1330 MTA 1,1,40,6,1,40,8,1,40,15,1 >IK 

,40,17,1,40,19,1,40,25,1,40,1,1,25, 

10,6,17,14,6,8,14,17,25,20,17,25,24 

,6,8,25,17,25,29,8,17,31,17,25,40,1 

,25 

13*: : ' :PÎIMT CHi$(22);CHS«(l) >DF 

1350 FOB 1=1 TO 26 >LL 

1360 if ia no» T=T*l >gu 

1370 IF I>35 TKEII IF T<5 THEN 1=5 E >HD 
LSE 1=10 

1360 PFJ 2:L0CATE I,Ï:PBINT CHR»(I» >BK 
64>;':';C*«(8);:PEN 1:PBINT ail): 
I4<S 

1390 KI-:PBIKT CHR«(22);CHR«(0I )AA 
1400 RBTOBE 1440 >LN 

1410 KAD I,T,PE,PA,TM >RG 

1420 IF 1=0 THEN 1470 >NN 

N 1430 PAPQ PA:PEN PE:L0CATÎ I,T:PRI >KT 
NT TII:G0T0 1410 

1440 MTA 15,7,2,0,ltlVEAU,26,7,0,2, >EK 
CHT*.::. 9,0,3, ENTER,30,10,2,0,ENT 
BEI m, 31, 12,0,3,ESPACE,31, 13,2,0, 
J0UM,3!,14,2,0,SU1VANT,3,10,2,0,S 
EL,3,12,2,0,BOT,4,16,2,0,H T,30,l 
6,2,0, TOUB :■ 

14SO MTA 3,18,1, 2,1 U E U R, 15, 1 >CT 
•,1.2,SC0RE,21,18,I,2,B0NI,26,18,1, 
2,"S.TOT',33,18,l,3,T0TAL 
1460 MTA 0,0,0,0,Z >MV 

'.A~. FAPEfi 0:PEN liLOCATE 7.10-.PB1K )D2 
T CHR1 < 242 );CKB«( 243): LOCATE 7,12:P 
IIVT ■--.li240l;CHM(241) 
14K FOB T=9 TO 13:L0CATE 11,T:PEN >(B 
2:PtlïT sn»:iErr 

149C LOCATE 11,9:PBINT CHfi»(24BI:L0 >VX 
CITE ::.9:PBINT OS* (249): LOCATE U 
,13:PtllfT CHBi(250):L0CATE 28,13:PB 

ir aai(2Si) 

150C PBINT CHB*!22);CHK*(1):PEN 1:1 >HF 
Xll 11,11:PBIMT CHB» (246): LOCATE 

■ -iINT CHR»(247):PRlkT CHM(22 
);CHW(0) 

BH EESTOEE 1520 >LP 

1S20 MTA'B ",■£ 5 ","N ",'E >TK 

A E"," ","V T N","E ■,'HPA 
T\"!B *,"CEII E","IS ",' El B", 
• ■ V TA »," E ■,■ • 
1530 FOR 1=1 TO 16:BEAD TH:PB», : >DP 
STBIIIG«<5,' ")»TM:NEIT 



-S 



1540 FOB PCS=1 TO 5:F0R 1=1 TO 16:L >CA 
(PC5,I)=PCS:HEIT:IŒn 
1550 FOR 11=1 TO 16 >LJ 

1560 PEU 3:L0CATE 11*U,14:PRINT CH >DF 
R«( 244): SOUND 1,125,3,15 
1570 IF 11=5 OR 11=16 THEN 1680 >UA 
1580 FOR 13=1 TO 5 >LP 

1590 FOR 12=1 TO 5 >LP 

1600 L(I2,I1)=L<I2,I1H1:N£IT >IF 
1610 FOB 12=1 TO 5 >LG 

1620 LXI2,IlhKIM((PR«(m),L(l2, >KF 
ll),l):MFJT 

1630 PBINT CHfi»(22);CHB«(l) >VZ 
1640 FOB T=13 TO 9 STEP-1 >BG 
1650 PEU 2:L0CATE 11H1,Ï:PRIKT CHR >IY 
•(252);CHfi»(8);:PEN 1:PRIMT UIY-8, 
11) 

1660 IF ï=ll THEH SOUND 1,500,3,15 >AC 
1670 MEIT:NEIT:PRINT CHRX22) ;CHR»l >GU 
0) 

1680 LOCATE llt|l,14:PBINT' ■:NE1T >CÏ 
1690 GOSUB 2060:1F ASC(R«)<>13 THEN >PQ 
1690 ELSE RESTORE 2000:GOSUB 1970 
1700 GOSUB 2060:1F ASCIRIK49 OR AS >DP 
C(R«)>53 THEN 1700 &SE NJ=VAL(R«): 
GOSUB 1970 

1710 FOR T=20 TO 19*NJ >PG 

1720 J»(Y-19)=":ID=2 >PP 

1730 LOCATE 2,T:PRINT STRINGK12," >EH 
•) 

1740 FOR 1=1 TO 12 >LA 

1750 LOCATE XD,Ï:PEN 3:PRIMT CHR*(2 >FI 
24) 

1760 GOSUB 2060:BI=UPPEB*(B«):IF AS >KM 
C(B»)=127 THEN 1790 ELSE IF ASC(R») 
<>13 THEN 1780 

1770 IF J»(Y-I9)=" THE» 1740 ELSE >JZ 
LOCATE XD,T:PRINT" VGOTO 1820 
1780 LOCATE K,T:PEN 2:PRINT RI:J»( >IH 
M9>=J«(T-19)t(R«):ID=ID*l:G0T0 18 
10 

1790 IF H>=2 AND T=20 THEN 1760 >UZ 
1800 IF ID=2 AND T>20 THEN LOCATE 2 >UH 
,Y:PRINT' ":Ï=T-2:G0T0 1820 ELSE 17 
20 

1810 NEIT >LB 

1820 NFJT:GOSUB 1970 )PT 

1830 GOSUB 2060:1F ASC(R»)<49 OB AS >UA 
C(B«)>53 THEN 1830 ELSE ND=VAL(R«>: 
LOCATE 21,7:PEN 1:PR1NT ND:GOSUB 19 
70 

1840 GOSUB 2060:B«=UPPER»(R»):IF R» >RG 
<>"N" AND (ASCIB4K49 OR ASC(B«)>53 



■ I THEN 1840 ELSE CR=VAL(BI):BETUBN 
1850 • > TG 

1860 ' CHRONO >TH 

1870 ' >|j 

1880 PBINT CHR»(22);CHB»<0):PEN 1 >AJ> 
1890 SEC=SEC-1:IFW=CR AND SEC>=0 >UH 
THEN PRINT CHB» ( 22 ) ; CHB» ( 1 ) : RFTURX 
1900 IF SEC<0 THEN SEC=59:IM=NN-1:L >LE 
OCATE 34,7:PRINT USING'I*;IM 
1910 IF SEC<10 THEN LOCATE 36,7:PBI >CB 
NT"0":LOCATE 37,7:PBINT USWG't'iSE 
C ELSE LOCATE 36,7iPBINT USINGMI"; 
SEC 

1920 SOUND 1,30,2,15:1F SEC=0 AND H >NV 
N=0 THEN TE=0 

1930 PBINT CHM(22);CHR»<1):RETUBN >DD 
1940 ' > re 

1950 ' HESSAGES PBESENTATION >TH 
1960 ' >»j 

1970 PEN 2:F0fi T=9 TO 13:L0CATE 12, >ZB 
T:PRIHT EF«:NEIT:PBINT CHfi«(22);CHB 
• 11) 

1980 PEN 1:F0B ï=9 TO 13:BEAD TI»:L >AH 
OCATE 12,T:PRINT TH:NEIT:Pfill(T CHR 
»(22);CHR4(0):BETUBH 



>ZB 
>KL 



2000 DATA' A C0HB1EN"," DESIREZ- 
VOUS', • JOUEB ?'," ',' (HAIIHUt 
5 !)',' ENTREZ VOS',' PRENOMS PU 
IS",' ENTE R', 'COMPRESSEZ DE 
L\"(IIAI.12 CARACT!)",' CHOISISSE 
Z'," VOTRE NIVEAU DE",' DIFFICULT 
E'," (DE 1 A 5)", 'I10TS DE 3 A 7 L 



2010 DATA' DUREE CHRONO",' EN NI >JG 
MUTES", " (ENTREZ 1 A 5)"," TAPEZ N 

POUR"," TEHPS IUINITE" 
2020 DATA" B R A V 0"," "," "," ■ >VH 
,"0N REJOUE ?(0/N>" 

2030 ' >ffl 

2040 ■ ATTENDRE TOUCHE >XJ 
2050 ' > tt 

2060 CAU 4BB03 >TJ 

2070 fi«=UPPEB»(INKET«):IF B«=" THE >WR 
N 2070 ELSE BETUBN 

2080 • >TC 

2090 ' EFFACES NESSAŒ ERREUR >TD 
2100 ' >ff 

2110 PRINT CHW(22);CHM(0):LOCATE >UV 
12,16:PIIIT STSING»(16.' 'hRETURN 
2120 ■ >m 

2130 ' BRUITAGE REFUS HOT >U 
2140 ' >» 

2150 FOR ZAP=200 TO 20 STEP-5:S0UND >EP 

1,ZAP,1,15:NEIT:BETURNA 



▲ 



INFORMATIQl IF 1 
COMMUNICATION 

DIALOGUE 3615 MHZ 




{( \ 

De nouvelles rubriques arrivent ! 




















TOUTES NOS REVUES 






DIALOGUE 




Savoir 
infos.. 


comment nous joindre, les sommaires 


.les 


En direct, vos questions, vos idées et suggestions 






REVENDEURS 






QUESTIONS-REPONSES 




Certoins revendeurs français disposent dur 
gratuit pour leurs promotions 


accès 


Une ne 


juvelle façon de poser les questions e 


tde 




voir les réponses faites ! 




NOS PRODUITS 


















500 PETITES ANNONCES 




La rubrique sur nos productions avec la possi- 
bilité de commander 














C'est en moyenne ce que vous trouvez sur le 
serveur. De quoi faire votre choix ! 




BRETAGNE EDIT PRESSE 










Dé! 

noi. 


ormais vous trouverez sur le serve 
veautés diffusées par cette société 


ur les 




BOITE AUX LETTRES 






Une m 


anlère de correspondre entre vous ou 


de 




HOROSCOPE 




nous laisser des messaç 
- ARCADES - AMSTAR - 
HERTZ -CPCREDACT-/ 


es. Nos BAL : SORACOM 
PCOMPATIBLES - MEGA- 
\STROLOGIE PRATIQUE 


L'hc 
sue 


>roscope 1988 mais aussi depuis peu le 
du 15 au 15 du mois 


imen- 1 




Au téléphone, 1 5 minutes coûtent en moyenne 55 francs 
Par minitel , il vous en coûte pour le môme temps 1 5 francs 




LE 


BON CHOIX 3615 MHZ NOUVELLE VERSH 


DN 



